Изменение выбора входных данных в r Shiny

Я пытаюсь создать приложение с помощью Shiny. Он будет содержать два выпадающих списка, один из которых отобразит название 7 разных секторов: он, банк, сталь, fmcg и т.д. В другом выпадающем списке должен быть список названий компаний выбранного сектора, то есть список имен будет динамическим.

1. Я не понимаю, как динамически изменять список имен 2-го раскрывающегося списка, например. если мы выберем "IT", то второе выпадающее меню должно содержать "infosys", "tcs" и т.д., если мы выберем "Банк", второе выпадающее шоу "SBI", "ICICI" и т.д.

ui.R

library(shiny)
shinyUI(fluidPage(
titlePanel("Forecasting of stock prices and their accuracies"),

sidebarLayout(
sidebarPanel(
radioButtons("rd",
             label="Select time range for training dataset",
             choices=list("23 month","18 month","12 month","6 month"),
             selected="23 months"),

selectInput("sector",
            label="select a sector",choices=list("IT"=1,"Bank"=2,"Power"=3,"Steel"=4,        
"FMCG"=5,"Infrastructure"=6,"Automobile"=7 ),                  
            selected=1),


selectInput("stock",
            label="select a option",choices=list("co.1"=1,"co.2"=2,
"co.3"=3,"co.4"=4,"co.5"=5,"
co.6"=6,"co.7"=7,"co.8"=8),
            selected=1)

),
mainPanel("Display results",
        textOutput("summary"),
        tableOutput("view"))
)
))

server.R

shinyServer(function(input, output) {
datasetInput <- reactive({
 if(input$sector=="1"){
 switch(input$stock, 
               "1" = Infy,
               "2" = TCS,
               "3" = Wipro,
               "4" = TechM)}

 else if(input$sector=="2"){
   switch(input$stock, 
          "1" = SBIN,
          "2" = ICICI,
          "3" = HDFC,
          "4" = Axis,
          "5" = IDBI,
          "6" = PSB,
          "7" = BOI,
          "8" = Bob
   )}
})

output$view<-renderTable({
 head(datasetInput(),n=10)
})

})

Ответ 1

Если ваши данные находятся в data.frame с переменными, представляющими промышленность и запас, вы можете использовать renderUI для динамического создания второго selectInput.

ui.R

library(shiny)
shinyUI(fluidPage(
  titlePanel("Forecasting of stock prices and their accuracies"),

  sidebarLayout(
    sidebarPanel(
      radioButtons("rd",
                   label="Select time range for training dataset",
                   choices=list("23 month","18 month","12 month","6 month"),
                   selected="23 months"),
      uiOutput("Box1"),
      uiOutput("Box2")
    ),
    mainPanel("Display results",
              tableOutput("view"))
  )
))

server.R

library(shiny)
biz = data.frame(
  Sector = c("a", "a", "a", "a", "b", "b", "b", "b", "b", "b", "b", "b"), 
  Stock = c("Infy","TCS","Wipro","TechM","SBIN","ICICI","HDFC", "Axis", "IDBI", "PSB","BOI","Bob"),
  stringsAsFactors = FALSE
)
shinyServer(function(input, output) {


  output$Box1 = renderUI(selectInput("sector","select a sector",c(unique(biz$Sector),"pick one"),"pick one"))


  output$Box2 = renderUI(
    if (is.null(input$sector) || input$sector == "pick one"){return()
    }else selectInput("stock", 
                      "Select a stock", 
                      c(unique(biz$Stock[which(biz$Sector == input$sector)]),"pick one"),
                      "pick one")
  )


  subdata1 = reactive(biz[which(biz$Sector == input$sector),])
  subdata2 = reactive(subdata1()[which(subdata1()$Stock == input$stock),])

  output$view = renderTable({
    if(is.null(input$sector) || is.null(input$stock)){return()
    } else if (input$sector == "pick one" || input$stock == "pick one"){return()

    } else return(subdata2())
  })

})