Fix nested CTE leading to nested WITH problem

prestodb · Nov 6, 2023 · c23d816 · c23d816
1 parent c98a2dd
commit c23d816
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # RPresto 1.4.6.9000
 
+* Fixed a bug whereby nested CTEs result in nested WITH. (#261)
+
 # RPresto 1.4.6
 
 * `tidyr::fill()` now works with PrestoConnection. (#233, thanks to @copernican

diff --git a/R/dbplyr-src.R b/R/dbplyr-src.R
@@ -253,8 +253,12 @@ copy_to.PrestoConnection <- function(dest, df, name = deparse(substitute(df)), o
       )
     }
     con <- dbplyr::remote_con(x)
+    # We need to speicify sql_options here so that use_presto_cte is passed to
+    # db_sql_render correctly
+    # (see https://github.com/tidyverse/dbplyr/issues/1394)
     sql <- dbplyr::db_sql_render(
-      dbplyr::remote_con(x), x, use_presto_cte = FALSE
+      con = dbplyr::remote_con(x), sql = x,
+      sql_options = dbplyr::sql_options(), use_presto_cte = FALSE
     )
     con@session$addCTE(name, sql, replace = TRUE)
   } else {