javascript - 将 sliderInput 值设置为 Shiny 的字符

Question

我 Shiny 的应用程序有一个 sliderInput，但想要将值替换为字符标签。我该如何实现？感谢您的任何建议。

这是我的示例代码:

library(shiny)
values <- as.factor(c('Label 1', 'Label 3', 'Label 3'))
ui <- shinyUI(bootstrapPage(
    headerPanel("test"),
    sliderInput("foo", "Animation duration", 
                min = 1,
                max = length(values), 
                value = values)
))

server <- shinyServer(function(input, output, session) {
})

shinyApp(ui = ui, server = server)

Answer 1

这可以使用 shiny 中的 sliderTextInput 函数轻松完成。无需添加所有这些复杂的 js 功能。只需几行代码即可解决问题。安装包含 sliderTextInput 函数的 shinywidgets 包。执行以下操作:

  sliderTextInput("foo","Animation Duration" , 
                  choices = c("Label 1", "Label 3", "Label 3"), 
                  selected = c("Label 1", "Label 3", "Label 3"), #incase you want all values by default 
                  animate = FALSE, grid = FALSE, 
                  hide_min_max = FALSE, from_fixed = FALSE,
                  to_fixed = FALSE, from_min = NULL, from_max = NULL, to_min = NULL,
                  to_max = NULL, force_edges = FALSE, width = NULL, pre = NULL,
                  post = NULL, dragRange = TRUE)