Add a slider input.
bulmaSliderInput(
inputId,
value,
min,
max,
color = NULL,
step = 1,
class = NULL,
size = NULL,
orient = "horizontal",
...
)Id to access value.
Current value, maximum and minimum of slider.
Slider color.
Slider step.
Additional class.
Size of slider, see details.
Slider orientation, takes, horizontal or vertical.
Any other parameter to pass to input.
Valid size:
NULL (standard)
small
medium
large
if(interactive()){
library(shiny)
ui <- bulmaPage(
bulmaContainer(
br(),
bulmaSliderInput("slider", 10, 3, 150),
plotOutput("plot")
)
)
server <- function(input, output){
data <- reactive({
rnorm(input$slider, 20, 4)
})
output$plot <- renderPlot({
hist(data())
})
}
shinyApp(ui, server)
}