no need to agend[1]=NULL, just drop if from the overwrite

MichaelChirico · web-flow · commit c4cff93c1f12 · 2025-07-15T10:38:26.000-07:00
diff --git a/R/tables.R b/R/tables.R
@@ -33,7 +33,6 @@ 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)) {
@@ -56,7 +55,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)
+        agenda = c(rev(children_to_add), agenda[-1L])
       }
     }
   } else {

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