Question

我需要根据一些功能更新滑块；我正在通过使用命令updateSelectinput来做到这一点。然后，我需要根据这些选择添加一些if语句：如何调用它们？通常的“ if（input $ x == input $ x [1]）”似乎不起作用；或更好，它仅适用于第一个（[1]），而不适用于其他人。

这是我的代码的一部分（部分）：

ui <- shinyUI(navbarPage("TITOLO",
tabPanel("Per tipologia",
sidebarPanel(selectInput(inputId = "x", label = "x",
        choices = "" ) ),
...
server <- function(input, output, session) {
observe({
database_list <- database_analysis()
database_list <- aggregate(database_list$y ~ database_list$t, 
FUN=sum)
names(database_list)[names(database_list) == "database_list$t"] <- "t"
a <- paste(database_list$t,"-",database_list$t-9)
b <- paste(database_list$t,"-",database_list$t-3)
c <- database_list$t

updateSelectInput(session, "x",
                label = "x",
                choices = c(a,b,c,database_list$t-1,database_list$t-2,database_list$t-3,database_list$t-4,database_list$t-5,database_list$t-6,database_list$t-7,database_list$t-8,database_list$t-9, database_list$t-10))
 })
 RE1 <- reactive({

database_a <- database_analysis()
...
  req(input$x)
          if(input$x== input$x[1]) {
          return(database_outp_x[1,])}
          else
           if(input$x== input$x[2]) {
          return(database_outp_x[2,])}
          else
          {
          return(database_outp_disa)}


  })

闪亮：updateSelectInput之后的if语句

0 个答案: