Merge pull request #503 from yjunechoe/info_columns-where

columns resolved against full data when available
rstudio · Nov 5, 2023 · d2ad537 · d2ad537
2 parents 0ff5eb2 + f327e72
commit d2ad537
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/info_add.R b/R/info_add.R
@@ -449,10 +449,14 @@ info_columns <- function(
   metadata_list <- metadata$metadata
   metadata_columns <- metadata_list$columns
 
-  x <- dplyr::as_tibble(metadata_columns %>% lapply(function(x) 1))
+  if (is.null(x$tbl)) {
+    tbl <- dplyr::as_tibble(metadata_columns %>% lapply(function(x) 1))
+  } else {
+    tbl <- x$tbl
+  }
 
   # Resolve the columns based on the expression
-  columns <- resolve_columns(x = x, var_expr = columns, preconditions = NULL)
+  columns <- resolve_columns(x = tbl, var_expr = columns)
 
   if (length(columns) == 1 && is.na(columns)) {