通过UI（使用闪亮的软件包）从用户获取输入，并将其存储在R中的对象中

我正在开发一个基于搜索的web界面工具，它需要我将DB连接到该界面。该界面将简单地从用户那里获取输入，并在数据库中搜索，然后输出结果

现在的问题是如何将来自用户的输入存储在一个变量中，然后稍后将其传递给处理dbconnection的R文件

这是我用于工具的文件视图，我仍在服务器上工作。R

请帮忙

dbconn.R

---

您必须在服务器端使用他的id input$DATASE获取输入

服务器.R

shinyServer(function(input, output, session) {

  in <- input$dataset

})

现在，您可以使用在文本输入中键入的文本作为in变量。

---

将dbconn.R加载到服务器代码中，或者将in变量设置为全局变量，我在代码中做了一些改进。我已经将dbconn作为一个函数包含在server.R中，并且在成功运行了最初的程序之后。我开始在UI中使用带有radiobutton的switch语句包含反义词，但switchcode中弹出以下错误error，ic9={:EXPR必须是长度为1的向量这是我最终生成的代码：

library(shiny)
require(dbconn)

shinyUI(pageWithSidebar(

  headerPanel("Shiny Text"),

  sidebarPanel(
    textInput("dataset", "Type an ICD-9 Code here:", value= "I want to pass the variable"in" here coz in dbconn i am passing the in variable to search in db" ),

  mainPanel(
    verbatimTextOutput("summary"),

    tableOutput("view")
  )
))

shinyServer(function(input, output, session) {

  in <- input$dataset

})