forked from dreamRs/shinyWidgets
-
Notifications
You must be signed in to change notification settings - Fork 0
/
setSliderColor.Rd
61 lines (53 loc) · 1.72 KB
/
setSliderColor.Rd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/setSliderColor.R
\name{setSliderColor}
\alias{setSliderColor}
\title{Color editor for sliderInput}
\usage{
setSliderColor(color, sliderId)
}
\arguments{
\item{color}{The \code{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 \code{'#7FFF00'} and \code{'#D2691E'}.}
\item{sliderId}{The \code{id} of the customized slider(s). This can be a vector like \code{c(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.}
}
\description{
Edit the color of the original shiny's sliderInputs
}
\note{
See also \url{https://www.w3schools.com/colors/colors_names.asp} to have an overview of all colors.
}
\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)
}
}
\seealso{
See \code{\link{chooseSliderSkin}} to update the global skin of your sliders.
}