闪亮动态滑块动画
闪亮动态滑块动画
提问于 2016-07-04 12:39:59
这个问题已经被here问过了，但是由于没有答案，我想我会发布另一个简单的例子，希望能找到答案。
问题是，当使用sliderInput()动态构建滑块时，renderUI()的动画选项无法工作。
所以，尽管这样做很好：
# 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))
}
)这不管用：
#doesn't work
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("animationSlider", "Dynamic animation slider",
min = 1, max = input$max, value = 1, step = 1,
animate = animationOptions(200))
})
output$sliderValue <- renderText(paste("value:", input$animationSlider))
}
)回答 1
Stack Overflow用户
回答已采纳
发布于 2016-07-04 13:11:38
一切都很好，您不能拥有两个同名的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))
}
)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/38185008
复制相关文章
相似问题
腾讯云开发者
