Add function to list container contents

functions.Rmd

@@ -276,3 +276,36 @@ list_environment_contents <- function(env)
 }
 ```
 
+## Containers
+
+### Fix names
+
+Fix the names given by `ls`.
+If a name exists, surround it with quotes.
+If a name doesn't exist, replace it by its index.
+
+```{r fix names}
+fix_names <- function(object)
+{
+  indexes <- 1:length(object)
+  names_out <- names(object)
+
+  names_out[(names(object) == "") | is.na(names(object))] <- indexes[(names(object) == "") | is.na(names(object))]
+  names_out[!(names(object) == "") | is.na(names(object))] <- paste0("\"", names_out[!(names(object) == "") | is.na(names(object))], "\"")
+
+  names_out
+}
+```
+
+### container
+
+```{r list container contents}
+list_container_contents <- function(fullname)
+{
+  mapply(print_object,
+         fix_names(get_object(fullname)),
+         fullname,
+         USE.NAMES = F,
+         SIMPLIFY = T)
+}
+```