Revision ce60f670aac0a708d3a9af5f0cf46a752d46ba8a authored by John M Chambers on 28 October 2020, 07:59:48 UTC, committed by cran-robot on 28 October 2020, 07:59:48 UTC
1 parent 698183c
Raw File
showEnv.R
showEnv <- function(x){
    if(!is.environment(x))
      x <- as.environment(x)
    if(is.null(attr(x, "name"))) print(x)
    else message("<environment: ", attr(x, "name"), ">")
    invisible(x)
} 
back to top