自定義`sliderInput（）`外觀

當使用shiny作爲測量工具時，我想將滑塊用作「likert-type questions」。
因此，我想自定義滑塊末端的標題有點像「我總是aggagree」和「我完全不同意」。有沒有一種順利的方式來做到這一點？自定義`sliderInput（）`外觀

來源

2017-05-04 sammerk

談論李克特式的，這一點：https://yihui.shinyapps.io/DT-radio/想到......也許這將適合更好？ – BigDataScientist

是的 - 很好的提示 - 當我問很多likertquestions時，我會用它。感謝的 – sammerk

你想要這樣的東西嗎？確保調整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)

來源

2017-05-05 06:49:40

是的 - 就是這樣！謝謝 – sammerk

自定義`sliderInput（）`外觀

回答

相關問題