Add fancy characters

functions.R

@@ -34,12 +34,15 @@ listObjects <- function()
         {
             nom <- gsub("\\n", "\\\\n", nom)
             nom <- gsub("\\t", "\\\\t", nom)
+            nom <- gsub("\\`", "\\\\`", nom)
             paste0("`", nom, "`")
         } else nom
     })
 
+    # if R-object-browser-fancy-char ?
     noms <- gsub("\\n", "⏎", noms)
     noms <- gsub("\\t", "⭾", noms)
+    noms <- gsub("\\`", "\\\\`", noms)
 
     Map(cat, types, noms, vars, "\n") -> nul
 }
@@ -50,11 +53,14 @@ objectContent <- function(x)
 {
     if (is.list(x))
     {
-        noms <- if (is.null(names(x))) 1:length(x)
-                else names(x)
-        list <- ifelse(lapply(x, is.list), "*", "")
-        printdfleft(data.frame(list = list,
-                               noms = noms))
+        noms <- if (is.null(names(x))) 1:length(x) else names(x)
+        objects <- mget(noms, envir = x)
+        types <- lapply(objects, get_type)
+
+        noms <- gsub("\\n", "⏎", noms)
+        noms <- gsub("\\t", "⭾", noms)
+
+        Map(cat, types, noms, "\n") -> nul
     }
 }