Add radio buttons.
bulmaRadioInput(inputId, choices, selected)
the input slot that will be used to access the value.
vector of choices, named or unnamed.
selected radio input.
if(interactive()){
library(shiny)
shinyApp(
ui = bulmaPage(
bulmaTitle("Hello Bulma"),
bulmaRadioInput("select", c("Miles per galon" = "mpg", "Rear axle ratio" = "drat"),
selected = "mpg"),
plotOutput("value")
),
server = function(input, output) {
output$value <- renderPlot(
plot(1:nrow(mtcars), mtcars[[input$select]])
)
}
)
}