r에 라디오 버튼 정렬 Shiny

Question

R Shiny에서 나는 버튼의 값이 위에 표시되고 여러 질문의 라디오 버튼이 버튼 값에 정렬되는 여러 그룹화 된 라디오 버튼의 구현으로 다음 스크립트를 작성했습니다.

library(shiny) 

ui <- fluidPage(
    titlePanel(title=HTML("&nbsp;"), windowTitle="Questionaire"), 

    cellWidths = c("100%"), 
    cellArgs = list(style = "padding: 6px"), 

    wellPanel(
    splitLayout(cellWidths = c("25%","10%","10%","10%","10%","10%"),"", 
       p("strongly agree"),p("agree"),p("neutral"),p("disagree"),p("strongly disagree")), 

    splitLayout(cellWidths = c("25%","10%","10%","10%","10%","10%"),p(strong("The website has a user friendly interface:")), 
       radioButtons("use1", "", "", selected=0, inline = T), 
       radioButtons("use2", "", "", selected=0, inline = T), 
       radioButtons("use3", "", "", selected=0, inline = T), 
       radioButtons("use4", "", "", selected=0, inline = T), 
       radioButtons("use5", "", "", selected=0, inline = T)), 

    splitLayout(cellWidths = c("25%","10%","10%","10%","10%","10%"),p(strong("The website is easy to navigate:")), 
       radioButtons("nav1", "", "", selected=0, inline = T), 
       radioButtons("nav2", "", "", selected=0, inline = T), 
       radioButtons("nav3", "", "", selected=0, inline = T), 
       radioButtons("nav4", "", "", selected=0, inline = T), 
       radioButtons("nav5", "", "", selected=0, inline = T)) 
) 
) 

server <- function(input, output, session) 
{ 
} 

shinyApp(ui = ui, server = server) 

이 구현에서는 질문 당 여러 옵션을 확인할 수 있습니다. 사용자가 질문에 대한 옵션을 선택한 후에는 사용자가 이후에 같은 질문에 대해 다른 옵션을 선택하자마자이 선택이 선택 취소됩니다.

Answer 1

조금 도움이 되었기를 바랍니다. 아직 조정할 필요가 있습니다. 그리드를 얻는 가장 좋은 방법은 각 '질문'에 대해 하나의 라디오 버튼 옵션을 갖는 것입니다. 이것을 그리드로 설정하려면 $ style 태그의 CSS 설정으로 재생해야 할 수도 있습니다. 예 :

ui <- fluidPage(

tags$style(".checkbox-inline, .radio-inline { 
    text-align: center; 
    margin-left: 0px; 
    margin-right: 0px; 
    padding: 0px; 
width: 20%;} "), 

titlePanel(title=HTML("&nbsp;"), windowTitle="Questionaire"), 



cellWidths = c("100%"), 
cellArgs = list(style = "padding: 6px"), 

wellPanel(
    # Introduced div to centre align the headers 
    splitLayout(cellWidths = c("25%","10%","10%","10%","10%","10%"),"", 
          div(style="text-align:center", HTML("strongly agree")), 
          div(style="text-align:center", HTML("agree")), 
          div(style="text-align:center", HTML("neutral")), 
          div(style="text-align:center", HTML("disagree")), 
          div(style="text-align:center", HTML("strongly disagree"))), 

    splitLayout(cellWidths = c("25%","50%"), 
          p(strong("The website has a user friendly interface:")), 
          radioButtons("use1", "", choiceValues=1:5, choiceNames=rep("",5), selected=0, inline = T) 
    ), 

    splitLayout(cellWidths = c("25%","50%"), 
          p(strong("The website is easy to navigate:")), 
          radioButtons("nav1", "", choiceValues=1:5, choiceNames=rep("",5), selected=0, inline = T) 
    )) 
)