fix(pkg-r): follow up to #149 -- DBI::SQL() errors given NULL (#158)

Author: cpsievert

pkg-r/R/querychat_module.R

@@ -32,7 +32,7 @@ mod_server <- function(
     current_query <- shiny::reactiveVal(NULL, label = "current_query")
     has_greeted <- shiny::reactiveVal(FALSE, label = "has_greeted")
     filtered_df <- shiny::reactive(label = "filtered_df", {
-      data_source$execute_query(query = DBI::SQL(current_query()))
+      data_source$execute_query(query = current_query())
     })
 
     append_output <- function(...) {