Use vapply_1c

MichaelChirico · web-flow · commit e01e674f7472 · 2025-07-15T10:45:24.000-07:00
diff --git a/R/tables.R b/R/tables.R
@@ -71,7 +71,7 @@ tables = function(mb=type_size, order.col="NAME", width=80L,
                       if (recursive) " (recursively)" else "")
     return(invisible(data.table(NULL)))
   }
-  info = data.table(NAME=vapply(found_items, `[[`, "name", FUN.VALUE=character(1L)),
+  info = data.table(NAME=vapply_1c(found_items, `[[`, "name"),
                     NROW=0L, NCOL=0L, MB=0.0, COLS=list(), KEY=list(), INDICES=list())
   for (i in seq_along(found_items)) {  # avoid rbindlist(lapply(DT_names)) in case of a large number of tables
     DT = found_items[[i]]$obj

Original file line number	Diff line number	Diff line change
`@@ -71,7 +71,7 @@ tables = function(mb=type_size, order.col="NAME", width=80L,`
`71`	`71`	`if (recursive) " (recursively)" else "")`
`72`	`72`	`return(invisible(data.table(NULL)))`
`73`	`73`	`}`
`74`		- info = data.table(NAME=vapply(found_items, `[[`, "name", FUN.VALUE=character(1L)),
	`74`	+ info = data.table(NAME=vapply_1c(found_items, `[[`, "name"),
`75`	`75`	`NROW=0L, NCOL=0L, MB=0.0, COLS=list(), KEY=list(), INDICES=list())`
`76`	`76`	`for (i in seq_along(found_items)) { # avoid rbindlist(lapply(DT_names)) in case of a large number of tables`
`77`	`77`	`DT = found_items[[i]]$obj`