Edit the color of the original shiny's sliderInputs
Arguments
- color
The
color
to apply. This can also be a vector of colors if you want to customize more than 1 slider. Either pass the name of the color such as 'Chartreuse ' and 'Chocolate 'or the HEX notation such as'#7FFF00'
and'#D2691E'
.- sliderId
The
id
of the customized slider(s). This can be a vector likec(1, 2)
, if you want to modify the 2 first sliders. However, if you only want to modify the second slider, just use the value 2.
Note
See also https://www.w3schools.com/colors/colors_names.asp to have an overview of all colors.
See also
See chooseSliderSkin
to update the global skin of your sliders.
Examples
if (interactive()) {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
# only customize the 2 first sliders and the last one
# the color of the third one is empty
setSliderColor(c("DeepPink ", "#FF4500", "", "Teal"), c(1, 2, 4)),
sliderInput("obs", "My pink slider:",
min = 0, max = 100, value = 50
),
sliderInput("obs2", "My orange slider:",
min = 0, max = 100, value = 50
),
sliderInput("obs3", "My basic slider:",
min = 0, max = 100, value = 50
),
sliderInput("obs3", "My teal slider:",
min = 0, max = 100, value = 50
),
plotOutput("distPlot")
)
server <- function(input, output) {
output$distPlot <- renderPlot({
hist(rnorm(input$obs))
})
}
shinyApp(ui, server)
}