问题描述
我使用 dplyr（0.8.3 版）来查询数据。该查询包括在查询开始时定义的参数，如下面的第一个 reprex 所示。最重要的是，我想收集列表中的参数，如第二个 reprex 所示。从数据框中查询数据的第一个和第二个示例工作正常。但是，当我想使用保存在列表中的参数从数据库中查询数据时，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 应用中处理和分析数据。我发现在应用程序外部开发用于处理数据的代码，然后将代码包含在应用程序中更容易。然而，随着输入数量的增加，这项任务变得越来越困难。对于开发，我的想法是定义一个名为“input”的列表，以便我可以将代码复制并粘贴到应用程序中。但是，我偶然发现了上面描述的问题。我们也非常欢迎对替代开发工作流程提出建议。
解决方法
对于 dplyr>=1.0.0，您需要 {{embrace}} 个值，请参阅 programming with 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。