R: Theme selector for sliderInput

chooseSliderSkin {shinyWidgets} | R Documentation

## Theme selector for sliderInput

### Description

Customize the appearance of the original shiny's sliderInputs

### Usage

    chooseSliderSkin(skin = c("Shiny", "Flat", "Modern", "Nice", "Simple",
      "HTML5", "Round", "Square"), color = NULL)

### Arguments

`skin` | The `skin` to apply. Choose among 5 different flavors, namely 'Shiny', 'Flat', 'Modern', 'Nice', 'Simple', 'HTML5', 'Round' and 'Square'.
`color` | A color to apply to all sliders. Works with following skins: 'Shiny', 'Flat', 'Modern', 'HTML5'. For 'Flat' a CSS filter is applied, desired color maybe a little offset.

### Note

It is not currently possible to apply multiple themes at the same time.

### See Also

See `setSliderColor` to update the color of your sliderInput.

### Examples

    ## Not run:

    if (interactive()) {

    library(shiny)
    library(shinyWidgets)

    # With Modern design

    ui <- fluidPage(
      chooseSliderSkin("Modern"),
      sliderInput("obs", "Customized single slider:",
                  min = 0, max = 100, value = 50
      ),
      sliderInput("obs2", "Customized range slider:",
                  min = 0, max = 100, value = c(40, 80)
      ),
      plotOutput("distPlot")
    )

    server <- function(input, output) {

      output$distPlot <- renderPlot({
        hist(rnorm(input$obs))
      })

    }

    shinyApp(ui, server)

    # Use Flat design & a custom color

    ui <- fluidPage(
      chooseSliderSkin("Flat", color = "#112446"),
      sliderInput("obs", "Customized single slider:",
                  min = 0, max = 100, value = 50
      ),
      sliderInput("obs2", "Customized range slider:",
                  min = 0, max = 100, value = c(40, 80)
      ),
      sliderInput("obs3", "An other slider:",
                  min = 0, max = 100, value = 50
      ),
      plotOutput("distPlot")
    )

    server <- function(input, output) {

      output$distPlot <- renderPlot({
        hist(rnorm(input$obs))
      })
    }

    shinyApp(ui, server)

    }

    ## End(Not run)

[Package shinyWidgets version 0.4.3 Index]