r - 为 Shiny 的应用程序创建动态输入字段

Question

我使用以下数据框来构建一个 Shiny 的应用程序:

listIDs <- c(100,100,100,100,200,200,200,200),
values <- c(2.12, 2.43, 2.12, 4.45, 3.23, 4.23, 3.23, 4.23),  
horses <- c(2.1, 3.2, 4.1, 4.2, 5.4, 4.7, 2.8, 2.0),  
month <- c("JAN", "FEB", "JAN", "FEB","MAY","APRIL","MAY", "APRIL"),
df <- data.frame(listIDs, values, horses, month),

我正在构建一个带有以下选项卡的 Shiny 应用程序:

ui.R

shinyUI(fluidPage(

#outlinen title
titlePanel(title = "This is the title"),
sidebarLayout(
 sidebarPanel(
  
  selectInput("var1", "Select the eventID", choices = listIDs),
  selectInput("var2", "Select the eventID", choices = month),
  br()
 ),

 mainPanel(("Personal information"),
          plotOutput("myhist"))
)
)) 

服务器.R

library(shiny)
library(ggplot2)

shinyServer(function(input, output){

output$myhist <- renderPlot({

df_graph <- df[df$listIDs == input$var1,]
df_graph <- df_graph[df_graph$month == input$var2,]

ggplot(data=df_graph, aes(x=month, y=values, group = horses)) +
  geom_line() + geom_point() + theme(axis.text.x = element_text(angle = 90, hjust = 1))

})
})

一切正常，但问题是，当我在第一个选择框中选择 100 时，我仍然得到选项“JAN”、“FEB”、“MRT”、“APRIL”(而我只应该得到 JAN 和 FEB) 。关于如何使这种动态化有什么想法吗？

Answer 1

与月份选择相对应的 selectInput 元素应根据 input$var1 的值动态呈现。这是一个简单的例子:

shinyApp(
    ui = fluidPage(

        titlePanel(title = "This is the title"),
        sidebarLayout(
            sidebarPanel(
                selectInput("var1", "Select the eventID", 
                            choices = listIDs
                ),
                uiOutput("select_month_ui"),
                br()
            ),
            mainPanel(
                "Personal information",
                plotOutput("myhist")
            )
        )
    ),
    server = function(input, output) {
        output$select_month_ui <- renderUI({
            selectInput("var2", "Select the eventID", 
                        choices = df[df$listIDs %in% input$var1,"month"]
            )
        })

        output$myhist <- renderPlot({
            df_graph <- df[df$listIDs == input$var1,]
            df_graph <- df_graph[df_graph$month == input$var2,]

            ggplot(data = df_graph, 
                    aes(x = month, y = values, group = horses)) +
                geom_line() + geom_point() + 
                theme(axis.text.x = element_text(angle = 90, hjust = 1))
        })
    }
)

---

selectInput 对象已从 UI 代码移动到服务器代码中，如下所示

    output$select_month_ui <- renderUI({
        selectInput("var2", "Select the eventID", 
                    choices = df[df$listIDs %in% input$var1,"month"]
        )
    }) 

并替换为 uiOutput("select_month_ui")。