sliderInput值随拖动滑块而变化

Question

我有一个应用程序，当前输入$ sliderInputID仅在释放鼠标时发生变化。是否可以在拖动滑块时将这些值更改为？

演示应用：

library(shiny)

shinyApp(
  server = function(input, output, session) {
    d_mean <- reactive({
      input$sliderInputID
    }) 
    output$plot <- renderPlot({
      x <- rnorm(n=1000, mean=d_mean(), sd=1)
      plot(density(x))
    })
  },
  ui = fluidPage(
    sliderInput("sliderInputID", "Mean:", min = -5, max = 5, value = 0, step= 0.1),
    plotOutput("plot")
  )
)

在这种情况下，绘图应该在拖动滑块时更新，而不仅仅是在释放鼠标时。

修改 这里有一个类似的问题：R reactive histogram 但是，我仍然对是否只使用闪亮的库提供另一种解决方案感兴趣，因为该答案于2016年发布。

Answer 1

您提供的链接是您想要的最快捷，最干净的方式。该软件包绝对可行 - 如果您担心它正在消失，那么请将它分叉到GitHub并从您的repo安装：

# devtools::install_github("homerhanumat/shinyCustom")
library("shiny")
library("shinyCustom")

shinyApp(
  server = function(input, output, session) {

    output$plot <- renderPlot({
      x <- rnorm(n = 1000, mean = input$sliderInputID, sd = 1)
      plot(density(x))
    })

  },
  ui = fluidPage(
    useShinyCustom(slider_delay = "0"),
    customSliderInput("sliderInputID", "Mean:", min = -5, max = 5, value = 0, step = 0.1),
    plotOutput("plot")
  )
)