Да, это правильно. В языках стиля VB, включая VBScript, двоеточие является маркером конца оператора. Это позволяет размещать несколько операторов в одной строке.
Это запутанно, но работает:
find.debugged.functions <- function(environments=search()) {
r <- do.call("rbind", lapply(environments, function(environment.name) {
return(do.call("rbind", lapply(ls(environment.name), function(x) {
if(is.function(get(x))) {
is.d <- try(isdebugged(get(x)))
if(!(class(is.d)=="try-error")) {
return(data.frame(function.name=x, debugged=is.d))
} else { return(NULL) }
}
})))
}))
return(r)
}
Вы можете запустить его во всех ваших средах следующим образом:
find.debugged.functions()
Или просто в вашем ".GlobalEnv" с помощью этого:
> find.debugged.functions(1)
function.name debugged
1 find.debugged.functions FALSE
2 test TRUE
Здесь Я создал тестовую функцию, которую отлаживаю.
Если вы не хотите заняться чем-то вроде написания функции, запускающей все через isdebugged (), я не думаю, что вы сможете.
В debug.c функция do_debug
- это то, что проверяет, установлен ли флаг DEBUG для объекта. Есть только три функции R, которые вызывают вызов do_debug
C: debug
, undebug
и isdebugged
.