R에서 전역으로 디버그 메시지를 켜고 끕니까?

Question

내가 이런 식으로 생각하고있다 : 당신이 그들을 해제 할 때 당신에게, 단지

rm(debugging) 

문제를

> fx = function(x, y) { 
+  if (exists("debugging")) { 
+   print(x) 
+   print(y) 
+  } 
+  x+y 
+ } 
> fx(1, 2) 
[1] 3 
> debugging = 1 
> fx(2, 3) 
[1] 2 
[1] 3 
[1] 5 

당신이 원하는대로 당신은 많은 디버깅 메시지를 쓸 수있는이 방법, 및 변수 디버깅 (또는 사용자가 지정한 이름)은 언제든지 다른 패키지에서 제거하거나 만들 수 있으므로 제어가 어렵습니다. 어떤 아이디어?

Answer 1

또 다른 옵션은 패키지에 debugging 함수를 정의하는 것입니다 :

debugging <- local({ 
    stored.value <- FALSE 
    function(bool = NULL) 
     if (is.null(bool)) { 
     stored.value 
     } else { 
     stopifnot(is.logical(bool), length(bool) == 1L) 
     stored.value <<- bool 
     } 
}) 

# default value: 
debugging() 
# [1] FALSE 

# set value 
debugging(TRUE) 

# check value 
debugging() 
# [1] TRUE 

"나중에 패키지 이름을 변경하면 어떻게됩니까?" 나는 생각한다.

Answer 2

옵션을 사용하십시오. xyz이 패키지의 이름 인 경우 일반적인 함수의 디버깅 코드는이 작업을 수행 할 것입니다 :

if (getOption("xyz.debug", FALSE)) { print(x); print(y) } 

을 다음이 디버깅을 할 수있는 패키지 문제를 외부 :

options(xyz.debug = TRUE) 

을하거나 그것을 해제 :

options(xyz.debug = FALSE) # or options(xyz.debug = NULL) 

다른 패키지에는 옵션 이름 앞에 패키지 이름이 붙지 않습니다.

이 방법의 주요 장점은 매우 가볍고 만드는 if (...) ... 문 및 디버깅이 꺼져있는 경우에 사용을위한 오버 헤드가 getOption에 단지 if 및 전화보다가 다른 어떤 인프라를 필요로하지 않는다는 점이다.

Answer 3

그냥 기록을 위해, 여기에 내가 G.Grothendieck의 대답 @ 읽고 해낸 것입니다 :

dbgexec = function(cmd) { 
    command = substitute(cmd) 
    if(getOption("mypack.debug", FALSE)) eval(cmd, parent.frame()) 
    invisible(NULL) 
} 

예 :

> x = 1.1111 
> dbgexec({message("value of x: "); print(x)}) 
value of x: 
[1] 1.1111 
> options(mypack.debug = FALSE) 
> dbgexec({message("value of x: "); print(x)}) 
# nothing done here 

그리고 @ flodel의 대답과 실험 :

> debugging <- local({ 
+ stored.value <- FALSE 
+ function(bool = NULL) 
+  if (is.null(bool)) { 
+   stored.value 
+  } else { 
+   stopifnot(is.logical(bool), length(bool) == 1L) 
+   stored.value <<- bool 
+  } 
+ }) 
> 
> 
> dbgexec = function(cmd) { 
+  command = substitute(cmd) 
+  if(debugging()) eval(cmd, parent.frame()) 
+  invisible(NULL) 
+ } 
> 
> x = 1; y = 2 
> dbgexec({x <- 2; y <- 3; print(x + y)}) 
> x 
[1] 1 
> y 
[1] 2 
> debugging() 
[1] FALSE 
> debugging(TRUE) 
> dbgexec({x <- 2; y <- 3; print(x + y)}) 
[1] 5 
> x 
[1] 2 
> y 
[1] 3