Dynamische selectInput in R shiny
Ich habe 3 selectInput Boxen und einen pool von 4 Optionen, die ausgewählt werden können, die durch diese 3 Boxen. Ich will die Optionen angezeigt, die von der selectInputs dynamisch zu ändern, wie andere selectInputs ausgewählt werden. Allerdings möchte ich die "NONE" - option zur Verfügung zu allen Zeitpunkten für alle drei Kästen. Der code, den ich verwende, ist
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Dynamic selectInput"),
dashboardSidebar(
sidebarMenu(
menuItemOutput("menuitem")
)
),
dashboardBody(
uiOutput('heirarchy1'),
uiOutput('heirarchy2'),
uiOutput('heirarchy3')
)
)
server <- function(input, output) {
output$menuitem <- renderMenu({
menuItem("Menu item", icon = icon("calendar"))
})
heirarchy_vector<-c("NONE","A","B","C")
output$heirarchy1<-renderUI({
selectInput("heir1","Heirarchy1",c("NONE",setdiff(heirarchy_vector,c(input$heir2,input$heir3))),selected="NONE")
})
output$heirarchy2<-renderUI({
selectInput("heir2","Heirarchy2",c("NONE",setdiff(heirarchy_vector,c(input$heir1,input$heir3))),selected="NONE")
})
output$heirarchy3<-renderUI({
selectInput("heir3","Heirarchy3",c("NONE",setdiff(heirarchy_vector,c(input$heir1,input$heir2))),selected="NONE")
})
}
shinyApp(ui, server)
Any help on this will be greatly appreciated
BEARBEITEN
Versuchte ich mit updateSelectInput für diesen Zweck. Aber der code scheint nicht zu laufen
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Dynamic selectInput"),
dashboardSidebar(
sidebarMenu(
menuItemOutput("menuitem")
)
),
dashboardBody(
selectInput("heir1","Heirarchy1",c("NONE","A","B","C"),selected="NONE"),
selectInput("heir2","Heirarchy2",c("NONE","A","B","C"),selected="NONE"),
selectInput("heir3","Heirarchy3",c("NONE","A","B","C"),selected="NONE")
)
)
server <- function(input, output) {
output$menuitem <- renderMenu({
menuItem("Menu item", icon = icon("calendar"))
})
heirarchy<-c("A","B","C")
observe({
hei1<-input$heir1
hei2<-input$heir2
hei3<-input$heir3
choice1<-c("NONE",setdiff(heirarchy,c(hei2,hei3)))
choice2<-c("NONE",setdiff(heirarchy,c(hei1,hei3)))
choice3<-c("NONE",setdiff(heirarchy,c(hei1,hei2)))
updateSelectInput(session,"heir1",choices=choice1)
updateSelectInput(session,"heir2",choices=choice2)
updateSelectInput(session,"heir3",choices=choice3)
})
}
shinyApp(ui, server)
- Sollte ich die ganzen updateselectInputs in einem beobachten?
- Ich bearbeitet die post mit einem neuen code
Du musst angemeldet sein, um einen Kommentar abzugeben.
Du bist in der Nähe! Zwei Dinge, die Sie zuordnen müssen Sie die session-variable, wenn Sie starten Sie Ihren server-Instanz, auch bei der Aktualisierung der Eingänge auswählen, die Sie brauchen, um festzulegen, welche gewählt wurde, außer, dass alles OK aussieht. Versuchen Sie dies: