r - 自定义 `sliderInput()` 外观

Question

在使用 shiny 作为调查工具时，我想将 slider 用作“李克特式问题”。
因此，我想自定义 slider 末端的标题，使其有点像“我完全同意”和“我完全不同意”。有没有一种流畅的方法可以做到这一点？

Answer 1

你想要这样的东西吗？确保相应地调整您的宽度

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)