From 642e90496f0f48d554ffa31ec3483530fe0fd707 Mon Sep 17 00:00:00 2001 From: Maximilian Girlich Date: Wed, 7 Dec 2022 16:35:05 +0000 Subject: [PATCH] Compat with dev dbplyr --- R/update_stmt.R | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/R/update_stmt.R b/R/update_stmt.R index b2b3bb6..23e6857 100644 --- a/R/update_stmt.R +++ b/R/update_stmt.R @@ -16,9 +16,7 @@ update_stmt <- function(x, table, table_ident, con, ..., na.condition=FALSE){ if (!is.null(g)){ g <- replace_vin(g) - qry_f <- eval(bquote(dplyr::filter(table, .(g)))) - qry <- dbplyr::sql_build(qry_f) - where <- qry$where + where <- dbplyr::translate_sql_(list(g), con = dbplyr::remote_con(table)) if (isTRUE(na.condition)){ where <- build_sql("COALESCE(",where,",1)", con = con) }