在R中使用selectinput创建SQL查询

我正在尝试使用select input创建一个动态查询

差不多

从苹果、香蕉、樱桃等水果的篮子中选择*

我有一个名为fruit_list的表格，它填充了我的selectinput框

选择输入水果列表，标签=H5选择水果，多个=T，选择=dbGetQueryconn，从水果列表中选择水果'

到目前为止，当我渲染打印我的选择时，我得到了苹果香蕉樱桃 我需要在元素之间用逗号来表示苹果、香蕉、樱桃 当我从多选择框中选择单个元素时

选择*从水果在苹果上的篮子

我的应用程序运行得很好。但是，当我选择多个元素时，会出现一个错误：需要单个字符串值：[type=character；extent=2]

很抱歉开始时没有那么明确

selectInput将用户输入作为字符向量，当查询更复杂时，glue应该更容易使用

图书馆胶水 用户输入假设ans是ca、b、c、d的非空子集。比如说,

ans <- c("b", "d")
sprintf("select * from table where item in (%s)", toString(shQuote(ans, "csh")))

如果您使用的是R3.6或更高版本，您可以选择将shQuoteans、csh替换为sQuoteans、FALSE

如果问题中的a，b，c，d应该代表数字，那么我们不需要引号，这样我们就可以替换toString。。。只有托斯特林根

未使用任何包。

可以使用粘贴命令将SQL查询字符串连接在一起

[1] "select * from table where item in ('b', 'd')"