https://github.com/cran/MuMIn
Tip revision: b4fae7a102a8a67407ddf3b3ef825ed34735704b authored by Kamil BartoĊ on 18 December 2019, 19:20:02 UTC
version 1.43.14
version 1.43.14
Tip revision: b4fae7a
utils-debug.R
`.DebugPrint` <-
function (x) {
if (isTRUE(getOption("debug.MuMIn"))) {
fun <- asChar(sys.call(sys.parent())[[1L]])
name <- substitute(x)
cat(sprintf("<%s> ~ ", fun))
if(is.language(name)) cat(asChar(name), "= \n")
print(x)
}
}
`.Debug` <-
function(expr) {
if(isTRUE(getOption("debug.MuMIn"))) {
eval.parent(substitute(expr))
}
}
`srcc` <- function() {
ret <- eval(expression(source("clipboard", local = TRUE)), .GlobalEnv)
return(if(ret$visible) ret$value else invisible(ret$value))
}