javascript – 将sliderInput值设置为闪亮的字符

我的闪亮应用程序有一个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)

最佳答案

感谢@daattli为我指出正确的方向,并让我知道如何使用js来改变闪亮的元素.

我已经实现了一个解决方案来更改sliderInput的标签和一个selectInput来切换不同的值(和长度).我认为这个功能应该实现为使用ionRangeSlider的闪亮.

如果您认为有更好的方法来实现它,请改进我的代码,因为它是我的第一个js脚本.

library(shiny)
values <- list(A = c('A1','A2','A3'),B = c('B1','B2','B3','B4'))

ui <- shinyUI(bootstrapPage(
    selectInput('selection','selection',c('A','B'),'A'),uIoUtput('selectUI'),sliderInput(inputId = "target",label = "Target",min = 0,max = length(values$A) - 1,step = 1,value = length(values$A) - 1),verbatimtextoutput('summary')
))

server <- shinyServer(function(input,session) {
    output$summary <- renderPrint({
        print(input$target)
        print(values[[input$selection]][input$target + 1])
    })
    output$selectUI <- renderUI({

        sel_values <- paste(paste0('"',values[[input$selection]],'"'),collapse = ',')
        print(sel_values)
        list(
            (HTML(
                sprintf('