R动态滑块动画

这个问题已经被问过了，但由于没有答案，我想我会发布另一个简单的例子，希望找到答案

问题在于，当使用renderUI（）动态构建滑块时，sliderInput（）的动画选项不起作用

因此，尽管这很有效：

# works 
library(shiny)

shinyApp(

  ui = fluidPage(

    sliderInput("animationSlider", "non-dynamic animation slider", 
                min = 1, max = 100, value = 1, step = 1,
                animate = animationOptions(200)),

    textOutput("sliderValue")

  ),

  server = function(input, output) {

    output$sliderValue <- renderText(paste("value:", input$animationSlider))

  }
)

#有效
图书馆（闪亮）
shinyApp(
ui=fluidPage(
sliderInput（“动画滑块”、“非动态动画滑块”，
最小值=1，最大值=100，值=1，步长=1，
动画=动画选项（200）），
文本输出（“sliderValue”）
),
服务器=功能（输入、输出）{
输出$sliderValue一切正常，不能有两个同名div：

library(shiny)

shinyApp(

  ui = fluidPage(

    numericInput("max", "Set max value for dynamic animation slider", 
                 value = 10),
    uiOutput("animationSlider"),
    textOutput("sliderValue")

  ),

  server = function(input, output) {

    output$animationSlider <- renderUI({
      sliderInput("animationSlider2", "Dynamic animation slider", 
                  min = 1, max = input$max, value = 1, step = 1,
                  animate = animationOptions(200))
    })

    output$sliderValue <- renderText(paste("value:", input$animationSlider2))

  }
)

库（闪亮）
shinyApp(
ui=fluidPage(
数值输入（“最大”，“为动态动画滑块设置最大值”，
值=10），
uiOutput（“animationSlider”），
文本输出（“sliderValue”）
),
服务器=功能（输入、输出）{
输出$animationSlider谢谢您的回答。此解决方案有效，现在可以通过输入$animationSlider2访问滑块的值。
library(shiny)

shinyApp(

  ui = fluidPage(

    numericInput("max", "Set max value for dynamic animation slider", 
                 value = 10),
    uiOutput("animationSlider"),
    textOutput("sliderValue")

  ),

  server = function(input, output) {

    output$animationSlider <- renderUI({
      sliderInput("animationSlider2", "Dynamic animation slider", 
                  min = 1, max = input$max, value = 1, step = 1,
                  animate = animationOptions(200))
    })

    output$sliderValue <- renderText(paste("value:", input$animationSlider2))

  }
)