自定义`sliderInput（）`外观

Question

我想使用滑块作为＆＃34;类似于问题的＆＃34;使用闪亮作为调查工具时。
因此，我想自定义滑块末端的标题，有点像＆＃34;我完全凝聚＆＃34;和＆＃34;我完全不同意＆＃34;。 有没有顺利的方法呢？

Answer 1

你想要这样的东西吗？请务必相应地调整width

library(shiny)
ui <- fluidPage(
  sliderInput('slider', 
              label = div(style='width:500px;', 
                          div(style='float:left;', 'I totally disagree'), 
                          div(style='float:right;', 'I totaly aggree')), min = 0, max = 10, value = 7, width = '500px')

)

server <- function(input, output) {}
shinyApp(ui, server)