load_tree_data(): do not set selected fields if sql statement is used

ctoney · ctoney · commit cc54677fd7da · 2026-03-18T13:53:18.000-06:00
diff --git a/R/load_tree_data.R b/R/load_tree_data.R
@@ -217,7 +217,7 @@ load_tree_data <- function(src, table = NULL, columns = DEFAULT_TREE_COLUMNS,
         on.exit(ds$close(), add = TRUE)
     }
 
-    if (!is.null(columns) && columns[1] != "")
+    if (is.null(sql) && !is.null(columns) && columns[1] != "")
         ds$setSelectedFields(columns)
 
     cli::cli_progress_step("Fetching tree data...")

Original file line number	Diff line number	Diff line change
`@@ -217,7 +217,7 @@ load_tree_data <- function(src, table = NULL, columns = DEFAULT_TREE_COLUMNS,`
`217`	`217`	`on.exit(ds$close(), add = TRUE)`
`218`	`218`	`}`
`219`	`219`
`220`		`- if (!is.null(columns) && columns[1] != "")`
	`220`	`+ if (is.null(sql) && !is.null(columns) && columns[1] != "")`
`221`	`221`	`ds$setSelectedFields(columns)`
`222`	`222`
`223`	`223`	`cli::cli_progress_step("Fetching tree data...")`