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)
}