Add dropdown otpions.
bulmaSelectInput(inputId, label, choices, rounded = FALSE)
the input slot that will be used to access the value.
input label.
vector of choices.
set to round corners.
if(interactive()){
library(shiny)
shinyApp(
ui = bulmaPage(
bulmaTitle("Hello Bulma"),
bulmaSelectInput("var", "Select",
choices = c("Miles per galon" = "mpg", "Displacement" = "disp")),
tableOutput("plot")
),
server = function(input, output) {
output$plot <- renderTable({
mtcars[, c("wt", input$var), drop = FALSE]
}, rownames = TRUE)
}
)
}