Estoy aprendiendo elShiny interfaz paraR y trabajando en el primer ejemplo.

El histograma cambia según la entrada del control deslizante. ¿Cómo hago que se actualice continuamente, mientras el control deslizante se está moviendo? En este momento, solo se actualiza cuando el control deslizante deja de moverse.

ui.R

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("Hello Shiny!"),

  # Sidebar with a slider input for the number of bins
  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),

    # Show a plot of the generated distribution
    mainPanel(
      plotOutput("distPlot")
    )
  )
))

servidor.R

library(shiny)

# Define server logic required to draw a histogram
shinyServer(function(input, output) {

  # Expression that generates a histogram. The expression is
  # wrapped in a call to renderPlot to indicate that:
  #
  #  1) It is "reactive" and therefore should re-execute automatically
  #     when inputs change
  #  2) Its output type is a plot

  output$distPlot <- renderPlot({
    x    <- faithful[, 2]  # Old Faithful Geyser data
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    # draw the histogram with the specified number of bins
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
})

Lo que he intentado:

#server.R
    library(shiny)

    shinyServer(function(input,output) {
                    x<-faithful[,2]
                    bins <- reactive({
                            seq(min(x),max(x),length.out=input$bins+1)
                    })

                    output$distPlot <- renderPlot({
                    hist(x,breaks=bins(),col='darkgray',border='white')})
    })

¿Hay alguna manera de hacerlo reaccionar más rápido / en tiempo real?