https://github.com/cran/MuMIn
Tip revision: 261df4b532c6a0965133d1a7a57c3860bdd3bc18 authored by Kamil BartoĊ on 09 April 2019, 11:32:46 UTC
version 1.43.6
version 1.43.6
Tip revision: 261df4b
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))
}