List an environment contents

functions.Rmd

@@ -249,3 +249,30 @@ list_environments <- function()
 }
 ```
 
+### List environment contents
+
+```{r list environment contents}
+##' List environment contents
+##'
+##' List environement contents.
+##' Works with ".GlobalEnv", and "package:stats"
+##' @title List environment contents
+##' @name Name of the environment as character
+##' @return A character vector of objects in the environment
+list_environment_contents <- function(env)
+{
+  if (env == ".GlobalEnv")
+    parent = ""
+  else
+    parent = paste0(substring(env, 9), "::")
+
+  objects <- paste0("\"", objects(env), "\"")
+
+  mapply(print_object,
+         objects,
+         parent,
+         USE.NAMES = F,
+         SIMPLIFY = T)
+}
+```
+