r-如何使用列表元素使用dplyr从数据库中查询数据

Question

我使用dplyr(版本0.8.3(来查询数据。查询包括在查询开头定义的参数，如下面的第一个reprex所示。最重要的是，我想收集一个列表中的参数，如第二个reprex所示。第一个和第二个示例从数据帧中查询数据，运行良好。但是，当我想使用保存在列表中的参数从数据库中查询数据时，SQL转换会生成一个无法工作的SQL，该SQL无法用于从数据库查询数据。

有没有一种方法可以将列表条目合并到dplyr管道中，以查询数据库中的数据？

library(dplyr)
library(dbplyr)
library(RSQLite)
# 1. Data frame: value 
a <- 1
mtcars %>% filter(vs == a) # Works
# 2. Data frame: list value
input <- list()
input$a <- 1
mtcars %>% filter(vs == input$a) # Works
# 3. Database: value and list value
con <- DBI::dbConnect(RSQLite::SQLite(), path = ":memory:")
copy_to(con, mtcars, "mtcars", temporary = FALSE)
db_mtcars <- tbl(con, "mtcars")
db_mtcars %>% filter(vs == a)          %>% show_query() %>% collect() # Works
db_mtcars %>% filter(vs == input$a)    %>% show_query() %>% collect() # Does not work
db_mtcars %>% filter(vs == input[1])   %>% show_query() %>% collect() # Does not work
db_mtcars %>% filter(vs == input[[1]]) %>% show_query() %>% collect() # Does not work

我问题的背景是，我想在shiny应用程序中处理和分析数据。我发现在应用程序之外开发处理数据的代码，然后将代码包含在应用程序中更容易。然而，随着投入数量的增加，这项任务变得越来越困难。对于开发，我的想法是定义一个名为"；输入"；这样我就可以将代码复制并粘贴到应用程序中。然而，我偶然发现了上述问题。关于替代开发工作流程的建议也非常受欢迎。

Answer 1

对于dplyr>=1.0.0，您需要{{embrace}}值，请参阅使用dplyr:编程

db_mtcars %>% filter(vs == a)          %>% show_query() %>% collect() # Works
db_mtcars %>% filter(vs == {{input$a}})    %>% show_query() %>% collect() # should work
db_mtcars %>% filter(vs == {{input[1]}})   %>% show_query() %>% collect() # should work
db_mtcars %>% filter(vs == {{input[[1]]}}) %>% show_query() %>% collect() # should work

对于dplyr <1.0.0，可以使用bang-bang!!运算符：!!input$a。