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('
                        
                                
原文地址：https://www.jb51.cc/js/428965.html
                                 
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [e-mail] 举报，一经查实，本站将立刻删除。
                            

• 上一篇：javascript – 为什么嵌套模板输出下一篇：javascript – 如何编辑源自超链接