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