Ich versuche eine checkboxGroupInput
zu verwenden, um die Register zu wählen, die angezeigt werden. Wenn die Daten jedoch über mehrere Bedingungen gefiltert werden, funktioniert das nicht. Dies ist der Code Ich verwende (die verwendeten Daten here heruntergeladen werden können):Filtertabelle mit mehreren Bedingungen mit glänzenden
Bibliothek (glänzend)
ui <- fluidPage(
titlePanel("Shiny Pokédex"),
sidebarLayout(
sidebarPanel(
checkboxGroupInput("Generation", "Select Generation:",
c("First" = 1,
"Second" = 2,
"Third" = 3,
"Forth" = 4,
"Fifth" = 5,
"Sixth" = 6),
inline = T)
),
mainPanel(
dataTableOutput("Generation")
)
)
)
server <- function(input, output) {
pokemon <- read.csv("pokemon.csv")
output$Generation <- renderDataTable({
pokemon[pokemon$Generation == input$Generation,-11]
})
}
shinyApp(ui = ui, server = server)
Mein Ziel ist es, mehr als eine Generation in der gleichen Zeit zu filtern. Wenn es nur mit einer Bedingung gemacht wird, funktioniert es, aber wenn man auf mehr als eine Option klickt, ist die Ausgabe nicht wie erwartet.