多个文本输入 Shiny R

Question

我一直试图弄清楚如何在 Shiny 中让多个输入与一个输出对象连接。

我有一个表格作为输出，我想根据用户在文本框中输入的内容仅显示该表格的特定行。在我的示例中，该表包含以下列：姓名、地址、出生日期、ID、下次约会。

我根据正则表达式过滤用户的输入，效果很好，但是在尝试区分 DateOfBirth 和 NextAppointment 时它会崩溃，因为它们都是 YYYY-MM-DD。

如何创建不会干扰第一个文本输入的新文本输入？我不能让它工作。我需要使用提交按钮以外的其他东西吗？

我的程序现在只会根据第一个文本输入框进行搜索。第二个文本输入框未激活。这是我需要你帮助的地方。

提前非常感谢。这是我的示例应用代码：

library(shiny)

#ui.R
#--------------------------------------------------------------------
ui = shinyUI(pageWithSidebar(
  headerPanel("Test App"),
  sidebarPanel(
    #declare 2 text inputs and submit button
    textInput(inputId = "variableInput", label = "Search by Name, ID or Date of Birth"),
    textInput(inputId = "NextAppt", "Search by Next Appointment"),
    submitButton(text = "Submit")
  ),
  mainPanel(
    #declare text output(s)
    #I don't want to have 2 table outputs
    #ideally I would have 2 search boxes for 1 table
    tableOutput("Variable")
    #,tableOutput("NextAppt")   
  )
))


#server.R
#--------------------------------------------------------------------
server = shinyServer(function(input, output){
  #make sample table with values. each vector represents a column
  Name = c("Person1", "Person2", "Person3")
  Address = c("101 E St", "102 E St", "103 E St")
  DateOfBirth = c("1990-01-01", "1990-01-02", "1990-01-03")
  ID = c("12345", "23456", "34567")
  NextAppointment = c("2017-02-14", "2017-02-15", "2017-02-16")
  df = data.frame(Name, Address, DateOfBirth, ID, NextAppointment)

  #determine what the user is searching for by using regular expressions
  #if the user entered something like ####-##-##, where # is any number,
  #then they must have entered a date
  #if the user enters #####, then it must be an ID
  #otherwise, they entered a name
  #search.criteria() is a vector of the rows of our dataframe to display
  search.criteria <- reactive({
    if(grepl("\\d{4}\\-\\d{2}\\-\\d{2}", input$variableInput)==TRUE){
      which(df$DateOfBirth==input$variableInput)
    } else if(grepl("\\d{5}", input$variableInput)==TRUE){
      which(df$ID==input$variableInput)
    } else{
      which(df$Name==input$variableInput)
    }
  })

  #create output table
  output$Variable = renderTable({
    df[search.criteria(), ]    #use the search.critera() reactive to determine rows to display
  })

})


#app.R
#--------------------------------------------------------------------
shinyApp(ui, server)

Answer 1

这对你有用吗？

 library(shiny)

#ui.R
#--------------------------------------------------------------------
ui = shinyUI(pageWithSidebar(
  headerPanel("Test App"),
  sidebarPanel(
    #declare 2 text inputs and submit button
    textInput(inputId = "variableInput", label = "Search by Name, ID, Date of Birth"),
    textInput(inputId = "NextAppt", label = "Next Appointment"),
    submitButton(text = "Submit")
  ),
  mainPanel(
    #declare text output(s)
    #I don't want to have 2 table outputs
    #ideally I would have 2 search boxes for 1 table
    tableOutput("Variable")
    #,tableOutput("NextAppt")   
  )
))


#server.R
#--------------------------------------------------------------------
server = shinyServer(function(input, output){
  #make sample table with values. each vector represents a column
  Name = c("Person1", "Person2", "Person3")
  Address = c("101 E St", "102 E St", "103 E St")
  DateOfBirth = c("1990-01-01", "1990-01-02", "1990-01-03")
  ID = c("12345", "23456", "34567")
  NextAppointment = c("2017-02-14", "2017-02-15", "2017-02-16")
  df = data.frame(Name, Address, DateOfBirth, ID, NextAppointment)

  #determine what the user is searching for by using regular expressions
  #if the user entered something like ####-##-##, where # is any number,
  #then they must have entered a date
  #if the user enters #####, then it must be an ID
  #otherwise, they entered a name
  #search.criteria() is a vector of the rows of our dataframe to display
  search.criteria <- reactive({
    out <- c()
    outAppt <- c()
    if(grepl("\\d{4}\\-\\d{2}\\-\\d{2}", input$variableInput)==TRUE){
      out <- which(df$DateOfBirth==input$variableInput)
      print(out)
    } else if(grepl("\\d{5}", input$variableInput)==TRUE){
      out <- which(df$ID==input$variableInput)
    } else{
      out <- which(df$Name==input$variableInput)
    }
    # filter for appointment
    if(grepl("\\d{4}\\-\\d{2}\\-\\d{2}", input$NextAppt)==TRUE){
      outAppt <- which(df$NextAppointment==input$NextAppt)
      if(length(out)){
        out <- intersect(out, outAppt)
      }else{
        out <- outAppt
      }
    }
    out
  })

  #create output table
  output$Variable = renderTable({
    print(search.criteria())
    df[search.criteria(), ]    #use the search.critera() reactive to determine rows to display
  })

})


#app.R
#--------------------------------------------------------------------
shinyApp(ui, server)