为闪亮的应用程序创建动态输入字段

Question

我使用以下数据框来构建一个闪亮的应用程序：

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),

我使用以下标签构建一个闪亮的应用程序：

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"))
)
)) 

server.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时，我仍然可以选择＆＃34; JAN＆＃34;，＆＃34; FEB＆＃34;，＆＃34; MRT＆＃34 ;，＆＃34; APRIL＆＃34; （虽然我只应该得到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")。