自定义`sliderInput（）`外观

Question

当使用shiny作为测量工具时，我想将滑块用作“likert-type questions”。
因此，我想自定义滑块末端的标题有点像“我总是aggagree”和“我完全不同意”。 有没有一种顺利的方式来做到这一点？

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)