Prefer glue_data_sql() when data is list-ish, not an actual environme…

…nt (#22)
daranzolin · Sep 20, 2024 · a49ed71 · a49ed71
1 parent 25540eb
commit a49ed71
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/source_sql_to_dataframe.R b/R/source_sql_to_dataframe.R
@@ -20,13 +20,13 @@ source_sql_to_dataframe <- function(path, params = NULL) {
       )
     )
   } else {
-    query <- glue::glue_sql(
+    query <- glue::glue_data_sql(
+      params,
       query,
       .con = con,
       .open = sqltargets_option_get("sqltargets.glue_sql_opening_delimiter"),
-      .close = sqltargets_option_get("sqltargets.glue_sql_closing_delimiter"),
-      .envir = params
-      )
+      .close = sqltargets_option_get("sqltargets.glue_sql_closing_delimiter")
+    )
   }
   out <- DBI::dbGetQuery(con, query)
   msg <- glue::glue("{basename(path)} executed:\n Rows: {nrow(out)}\n Columns: {ncol(out)}")