我的 server.R 有以下代码,我希望我的 Shiny 应用程序根据国家/地区选择来选择国家/地区,但它在第二行中显示所有国家/地区。我想这里,observe
只是观察,不采取任何行动。
shinyServer(function(input, output, session) {
observe({
ddf = df[df$Date>=input$daterange[1] & df$Date<=input$daterange[2],]
updateSelectInput(session, "Country", choices = ddf$Country)
ddf1 = subset(ddf, grepl(input$Country, ddf$State))
updateSelectInput(session, "State", choices = ddf1$State)
})
}
根据上述选择,我想传递一些数据框进行绘图。当我选择不同的国家/地区时,它会更改州列表,然后返回所有第一个国家/地区的州列表。如果有人能在这里举一个例子,我真的很感激。
我的 ui.R 代码如下
sidebarPanel(
wellPanel(dateRangeInput("daterange", "Date range:",
Sys.Date()-10,
Sys.Date()+10)),
wellPanel(selectInput("Country", "Select a Country:",
'')),
wellPanel(selectInput("State", "Select a State:",
'')))