Update tables.R

Author: venom1204

R/tables.R

@@ -28,35 +28,35 @@ tables = function(mb=type_size, order.col="NAME", width=80L,
   obj = mget(names, envir=env)  # doesn't copy; mget is ok with ... unlike get, #5197
   found_items = list()
   if (recursive) {
-    agenda <- lapply(seq_along(obj), function(i) list(obj = obj[[i]], name = names[i]))
-    visited_env <- new.env(hash = TRUE)
+    agenda = lapply(seq_along(obj), function(i) list(obj = obj[[i]], name = names[i]))
+    visited_env = new.env(hash = TRUE)
 
     while (length(agenda) > 0L) {
-      current_item <- agenda[[1L]]
-      agenda[[1L]] <- NULL
-      x <- current_item$obj
-      x_name <- current_item$name
+      current_item = agenda[[1L]]
+      agenda[[1L]] = NULL
+      x = current_item$obj
+      x_name = current_item$name
       if (is.data.table(x)) {
-        found_items[[length(found_items) + 1L]] <- list(name = x_name, obj = x)
+        found_items[[length(found_items) + 1L]] = list(name = x_name, obj = x)
         next
       }
       if (is.list(x) && !is.data.frame(x)) {
         # Cycle detection
-        addr <- address(x)
+        addr = address(x)
         if (exists(addr, envir = visited_env, inherits = FALSE)) next
         assign(addr, TRUE, envir = visited_env)
 
-        item_names <- names(x)
-        children_to_add <- vector("list", length(x))
+        item_names = names(x)
+        children_to_add = vector("list", length(x))
         for (i in seq_along(x)) {
-          child_name <- if (!is.null(item_names) && nzchar(item_names[i])) {
+          child_name = if (!is.null(item_names) && nzchar(item_names[i])) {
             paste0(x_name, "$", item_names[i])
           } else {
             paste0(x_name, "[[", i, "]]")
           }
-          children_to_add[[i]] <- list(obj = x[[i]], name = child_name)
+          children_to_add[[i]] = list(obj = x[[i]], name = child_name)
         }
-        agenda <- c(rev(children_to_add), agenda)
+        agenda = c(rev(children_to_add), agenda)
       }
     }
   } else {