bootstrapSwitch on shiny doesn't work

Question

It's simple example from http://shiny.rstudio.com/gallery/widget-gallery.html. After initializing the Bootstrap Switch, the output doesn't change when I click button. Did I miss something?

library(shiny)

ui <- shinyUI(fluidPage(
  tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "//cdnjs.cloudflare.com/ajax/libs/bootstrap-switch/3.3.2/css/bootstrap3/bootstrap-switch.min.css")),                      
  tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/bootstrap-switch/3.3.2/js/bootstrap-switch.min.js',type='text/javascript')),
  tags$head(tags$script("$(document).ready(function($) {
                        $('#check').bootstrapSwitch();
                        });",
                                 type='text/javascript')),
  checkboxInput("check", label = "", value = TRUE),
  fluidRow(column(3, verbatimTextOutput("value")))

  ))


server <- shinyServer(function(input, output) {

  output$value <- renderPrint({ input$check })

  outputOptions(output, "value", suspendWhenHidden = FALSE)        

})


shinyApp(ui, server)

Answer 1

You can try use javascript to change value

server

shinyServer(function(input, output,session) {

})

UI

library(shiny)
shinyUI(fluidPage(
  tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "//cdnjs.cloudflare.com/ajax/libs/bootstrap-switch/3.3.2/css/bootstrap3/bootstrap-switch.min.css")),                      
  tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/bootstrap-switch/3.3.2/js/bootstrap-switch.min.js',type='text/javascript')),
    tags$head(tags$script("$(document).ready(function($) {
                          $('#check').bootstrapSwitch();
                  $('#value').text($('#check').bootstrapSwitch('state'));
$('#check').on('switchChange.bootstrapSwitch', function () {

    $('#value').text($('#check').bootstrapSwitch('state'));

                          });
                          });",
                          type='text/javascript')),
  checkboxInput("check", label = "", value = F),
  fluidRow(column(3, verbatimTextOutput("value")))

))

for using switch on server side you need Shiny.onInputChange

UI

library(shiny)
shinyUI(fluidPage(

  tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "//cdnjs.cloudflare.com/ajax/libs/bootstrap-switch/3.3.2/css/bootstrap3/bootstrap-switch.min.css")),                      
  tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/bootstrap-switch/3.3.2/js/bootstrap-switch.min.js',type='text/javascript')),
    tags$head(tags$script("$(document).ready(function() {
                          $('#check').bootstrapSwitch();

$('#check').on('switchChange.bootstrapSwitch', function () {
var sw=$('#check').bootstrapSwitch('state')
    Shiny.onInputChange('check', sw)
                          });
                          });",
                          type='text/javascript')),
  checkboxInput("check", label = "", value = F),
  fluidRow(column(3, verbatimTextOutput("value"))      )


))

Server

shinyServer(function(input, output,session) {

output$value <- renderPrint({ ifelse(input$check, rnorm(1), rnorm(1,10000)) })
})