Modification des choix d’entrée sélectionnés dans r Shiny

Je suis en train de créer une application à l'aide de Brillants. Il contiendra 2 listes déroulantes, on va afficher le nom des 7 secteurs différents,de la banque,de l'acier,les produits de consommation courante, etc. L'autre liste déroulante doit contenir la liste des noms de companiesof sélectionné secteur, j'.e liste de noms sera dynamique.

1.Je ne suis pas à obtenir la moindre idée de comment faire pour modifier des listes de noms de 2e déroulant de façon dynamique, par exemple. si vous sélectionnez "ON" 2ème liste déroulante doit contenir "infosys" ,"tcs", etc, si vous choisissez "la Banque", 2ème liste déroulante musr show "SBI","GLAÇON" etc.

de l'interface utilisateur.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"))
)
))

serveur.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)
})

})

source d'informationauteur user2969490

  1. 9

    Si vos données sont dans un data.frame avec des variables pour représenter l'industrie et de stock, vous pouvez utiliser renderUI de créer dynamiquement de la deuxième selectInput.

    de l'interface utilisateur.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"))
  )
))

    serveur.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())
  })

})