i am wrong (need to remove the item for non-list entries)

MichaelChirico · web-flow · commit ce726c283227 · 2025-07-15T10:39:23.000-07:00
diff --git a/R/tables.R b/R/tables.R
@@ -33,6 +33,7 @@ tables = function(mb=type_size, order.col="NAME", width=80L,
 
     while (length(agenda)) {
       current_item = agenda[[1L]]
+      agenda[[1L]] = NULL
       x = current_item$obj
       x_name = current_item$name
       if (is.data.table(x)) {
@@ -55,7 +56,7 @@ tables = function(mb=type_size, order.col="NAME", width=80L,
           }
           children_to_add[[i]] = list(obj=x[[i]], name=child_name)
         }
-        agenda = c(rev(children_to_add), agenda[-1L])
+        agenda = c(rev(children_to_add), agenda)
       }
     }
   } else {

Original file line number	Diff line number	Diff line change
`@@ -33,6 +33,7 @@ tables = function(mb=type_size, order.col="NAME", width=80L,`
`33`	`33`
`34`	`34`	`while (length(agenda)) {`
`35`	`35`	`current_item = agenda[[1L]]`
	`36`	`+ agenda[[1L]] = NULL`
`36`	`37`	`x = current_item$obj`
`37`	`38`	`x_name = current_item$name`
`38`	`39`	`if (is.data.table(x)) {`
`@@ -55,7 +56,7 @@ tables = function(mb=type_size, order.col="NAME", width=80L,`
`55`	`56`	`}`
`56`	`57`	`children_to_add[[i]] = list(obj=x[[i]], name=child_name)`
`57`	`58`	`}`
`58`		`- agenda = c(rev(children_to_add), agenda[-1L])`
	`59`	`+ agenda = c(rev(children_to_add), agenda)`
`59`	`60`	`}`
`60`	`61`	`}`
`61`	`62`	`} else {`