억제 메시지,하지만 나는 현재 다음 헤더 사용

Question

R 콘솔에서이 코드 청크 내부

```{r, message=FALSE} 
foo <- function(x) message(x) 
for(i in 1:10) foo(i) 
``` 

는, 시뮬레이션 시나리오를 통해 루프가 현재 실행 시나리오의 상태를 인쇄 message() 기능,가 .

나는 RStudio 및 최종 HTML 출력에 표시되는 메시지를 표시하지 않으려하지만 시뮬레이션 진행 상황을 제어하고 콘솔에서 message() 출력을보고 싶습니다. 달성 가능합니까? 어쩌면 다른 인자/함수가 있을까요?

Answer 1

파일에 상태를 추가하거나 추가 할 수 있습니다 (임시 해결 방법이므로 더 직접적인 대답이 있어야합니다). 예를 들어

:

file <- file("status.txt", open = "wt") 
sink(file, type = "message") 
message("all good") 

이 예제 메시지에서 표시되지 않습니다 - 그것은 status.txt 파일에 기록됩니다.

당신이이 예제를 시도 할 수 있습니다 특정 기능을 사용하여 세트 반복하고 년 :

foo <- function(x) { 
    message(x) 
} 

file <- file("status.txt", open = "wt") 
sink(file, type = "message") 
for(i in 1:3) { 
    foo(i) 
} 

기능 foo를 (메시지) 값을 반환해야합니다, 그러나 그것은 status.txt 파일에 추가합니다.

-f 인수와 함께 bash tail 명령을 사용하여 status.txt 파일의 변경 사항을 추적 할 수 있습니다. 먼저 R을 백그라운드로 보내고 콘솔에 tail -f status.txt을 사용하십시오.

Answer 2

한 가지 방법은 파일의 시작 부분에이 방법을 사용하는 것입니다.

mymessage <- function (text) { 
    if(knitr::opts_knit$get('out.format') != NULL) message(text) 
} 

knitr에 속하는지 알 수있는 다양한 방법이 있습니다. 최신 버전은 knitr::is_latex_output 및 이와 유사합니다.