Изменение значения sliderInput при перемещении слайдера - PullRequest
Новая
       8

Изменение значения sliderInput при перемещении слайдера

0 голосов
/ 24 апреля 2018

У меня есть приложение, в котором ввод $ 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")
  )
)

В этом случае график должен обновляться какслайдер перетаскивается не только при отпускании мыши.

Редактировать: Здесь есть похожий вопрос: Реактивная гистограмма Тем не менее, я все еще заинтересовандоступно ли другое решение, использующее только блестящую библиотеку, поскольку этот ответ был опубликован в 2016 году.

1 Ответ

0 голосов
/ 28 апреля 2018

Ссылка, которую вы предоставляете, является самым быстрым и чистым способом к тому, что вы хотите.Этот пакет определенно по-прежнему жизнеспособен - если вы беспокоитесь о его исчезновении, тогда раскройте его на GitHub и установите из своего репозитория: 

# 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")
  )
)
...