github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-02-06 04:35:13 -05:00
Code Issues Packages Projects Releases Wiki Activity

Update slider animation buttons for Bootstrap 3

Browse Source
This commit is contained in:
Winston Chang
2014-10-30 20:06:38 -05:00
parent 2ade82d883
commit 8a7603a45c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/bootstrap.R
View File

@@ -1027,9 +1027,9 @@ sliderInput <- function(inputId, label, min, max, value, step = NULL,
if (!is.null(animate) && !identical(animate, FALSE)) {
if (is.null(animate$playButton))
animate$playButton <- tags$i(class='icon-play')
animate$playButton <- tags$span(class='glyphicon glyphicon-play')
if (is.null(animate$pauseButton))
animate$pauseButton <- tags$i(class='icon-pause')
animate$pauseButton <- tags$span(class='glyphicon glyphicon-pause')
}
# build slider