我希望在使用shiny作为调查工具时,可以使用滑块作为“Likert型问题”。
因此,我想自定义滑块两端的标题,类似于“我完全同意”和“我完全不同意”。
是否有一种顺畅的方法来实现这一点?
你想要类似这样的效果吗?请确保根据需要调整你的 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)
style='width:100%;
。 - Pork Chop