Content - 06c6488e4be29c90156a37d1bc76b0f4d223bf41 - 523a7b4/R/showEnv.R

swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041

Tip revision: 9e5b9bb8a0564f8bf629df4ca5e96d3078f50363 authored by jmc on 14 July 2008, 00:00:00 UTC
version 1.0-2

Tip revision: 9e5b9bb

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