From 8a7603a45c6dfd5e48044d78dbad782feaabb622 Mon Sep 17 00:00:00 2001
From: Winston Chang <winston@stdout.org>
Date: Thu, 30 Oct 2014 20:06:38 -0500
Subject: [PATCH] Update slider animation buttons for Bootstrap 3

---
 R/bootstrap.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/bootstrap.R b/R/bootstrap.R
index 943bafd1f..05832f176 100644
--- a/R/bootstrap.R
+++ b/R/bootstrap.R
@@ -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