问题是当您仅选择时构造查询的方式one元素并使用IN操作员。这dplyr翻译为SQL没有添加正确的括号，因此失败。这个问题被详细讨论过here https://github.com/hadley/dplyr/issues/511.
解决此问题的一种方法是将不同的指令传递给filter() when length输入等于 1（参见下面的示例）。
这是正在发生的事情：
tbl(mydb, "iris") %>%
filter(Species %in% c("setosa", "versicolor")) %>%
.$query
给出适当的SQL查询语法：
<Query> SELECT "Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species"
FROM "iris"
WHERE "Species" IN ('setosa', 'versicolor')
<PostgreSQLConnection>
并且，如果执行，会给出预期的结果：
#Source: postgres 9.3.13 [[email protected] /cdn-cgi/l/email-protection:5432/csvdump]
#From: iris [100 x 5]
#Filter: Species %in% c("setosa", "versicolor")
#
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# (dbl) (dbl) (dbl) (dbl) (chr)
#1 5.1 3.5 1.4 0.2 setosa
#2 4.9 3.0 1.4 0.2 setosa
#3 4.7 3.2 1.3 0.2 setosa
#4 4.6 3.1 1.5 0.2 setosa
#5 5.0 3.6 1.4 0.2 setosa
#6 5.4 3.9 1.7 0.4 setosa
#7 4.6 3.4 1.4 0.3 setosa
#8 5.0 3.4 1.5 0.2 setosa
#9 4.4 2.9 1.4 0.2 setosa
#10 4.9 3.1 1.5 0.1 setosa
#.. ... ... ... ... ...
让我们看看如果您尝试传递单个元素会发生什么：
tbl(mydb, "iris") %>%
filter(Species %in% "setosa") %>%
.$query
查询将是：
<Query> SELECT "Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species"
FROM "iris"
WHERE "Species" IN 'setosa'
<PostgreSQLConnection>
如果执行，将导致以下错误：
postgresqlExecStatement（conn，语句，...）中的错误：RS-DBI
驱动程序：（无法检索结果：错误：语法错误或
靠近“'setosa'”第 3 行：“物种”IN 'setosa') AS“master”
^)
这是因为对于单个元素，dplyr翻译为SQL查询未添加正确的括号。注意它是怎样的'setosa'代替('setosa').
为了避免这种情况，我们可以这样做：
if(length(input$Species) == 1) {
tbl(mydb, "iris") %>%
filter(Species == input$Species) %>%
}
这将构建一个语法上有效的SQL query:
<Query> SELECT "Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species"
FROM "iris"
WHERE "Species" = 'setosa'
<PostgreSQLConnection>
以下示例可解决此问题。这里我只是简单的指示app通过filter(Species == ...) if input$Species is of length 1 and filter(Species %in% ...)否则。
ShinyApp
server <- function(input, output) {
selectedQuery <- reactive({
if(length(input$Species) == 1) {
tbl(mydb, "iris") %>%
filter(Species == input$Species) %>%
.$query
}
else(
tbl(mydb, "iris") %>%
filter(Species %in% input$Species) %>%
.$query
)
})
selectedData <- reactive({
if(length(input$Species) == 1) {
tbl(mydb, "iris") %>%
filter(Species == input$Species) %>%
data.frame
}
else(
tbl(mydb, "iris") %>%
filter(Species %in% input$Species) %>%
data.frame
)
})
output$plot <- renderPlot({
ggplot2::qplot(Sepal.Length, Petal.Length, data = selectedData(), color = Species)
})
output$query <- renderPrint({
selectedQuery()
})
}
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("Species", "Species",
tbl(mydb, "iris") %>%
data.frame %>%
.$Species %>%
unique,
selected = "setosa", multiple = TRUE)
),
mainPanel(
textOutput("query"),
plotOutput("plot")
)
)
)
shinyApp(ui = ui, server = server)
