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)
}
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)
}