Разделение радиокнопок в блестящем приложении R с разрывом строки

Question

У меня есть список radioButtons в моем блестящем приложении, которые я собираюсь разделить на три группы, либо с заголовком, пустым пространством, таким как разрыв строки или абзаца, или даже строка -------- , Я попытался сделать это, создав три отдельных кнопки formTypes (formType1, formType2, formType3), но функциональность кнопок перестала работать. Я не знаю большого количества HTML кода, но те, которые я пробовал, не будут работать в блоке RadioButton. Вы можете помочь? Спасибо. Я указал, где я хочу, чтобы радио-кнопки были разделены ниже с помощью **BREAK HERE**

# Create Navigation Bar
   navbarPage("Navigation Bar",
     # Create a tab for data Entry
     tabPanel(
       "Data Entry",
       sidebarLayout(
         sidebarPanel(
           radioButtons(
             "formType", "Form Type",
             c("Basic Info & Universal Flagging" = "basic_info",
               "Universal Screening" = "uni_screening",

               `**BREAK HERE**`

               "BHAP Screening" = "bhap_screening",
               "BHAP Intake & Assessment" = "bhap_intakeassessment",
               "BHAP Referral" = "bhap_referral", "BHAP Contact Info" = "bhap_contactinfo",
               "BHAP Case Management" = "bhap_casemanagement", "BHAP Exit" = "bhap_exit", 

               `**BREAK HERE**`

               "COAP Intake" = "coap_intake", "COAP Assessment" = "coap_assessment", 
               "Intercept 3: COAP In-Jail Servces" = "coap_injailservices",
               "Intercept 4: COAP Support Services Needs" = "coap_supportservices",
               "Intercept 4: COAP Reentry/Community-Based Referrals" = "coap_reentrycommunity",
               "Provider Updates (In-Jail and Community-Based)" = "coap_providerupdates",
               "COAP Contact Info" = "coap_contactinfo", "COAP Case Management" = "coap_casemanagement",
               "COAP EXIT" = "coap_exit"))
           ),

         # outputs the dynamic UI component
          uiOutput("ui")
         )
       ),

Answer 1

Вы можете добавить javascript / jQuery, чтобы указать разрывы после указания c переключателей, добавив <hr>, когда указано:

ui <- fluidPage(
  # Create Navigation Bar
  navbarPage("Navigation Bar",
    # Create a tab for data Entry
    tabPanel(
     "Data Entry",
     sidebarLayout(
       sidebarPanel(
         radioButtons(
           "formType", "Form Type",
           c("Basic Info & Universal Flagging" = "basic_info",
             "Universal Screening" = "uni_screening",
             "BHAP Screening" = "bhap_screening",
             "BHAP Intake & Assessment" = "bhap_intakeassessment",
             "BHAP Referral" = "bhap_referral", "BHAP Contact Info" = "bhap_contactinfo",
             "BHAP Case Management" = "bhap_casemanagement", "BHAP Exit" = "bhap_exit", 
             "COAP Intake" = "coap_intake", "COAP Assessment" = "coap_assessment", 
             "Intercept 3: COAP In-Jail Servces" = "coap_injailservices",
             "Intercept 4: COAP Support Services Needs" = "coap_supportservices",
             "Intercept 4: COAP Reentry/Community-Based Referrals" = "coap_reentrycommunity",
             "Provider Updates (In-Jail and Community-Based)" = "coap_providerupdates",
             "COAP Contact Info" = "coap_contactinfo", "COAP Case Management" = "coap_casemanagement",
             "COAP EXIT" = "coap_exit")),
         tags$head(tags$script(HTML("
             $(document).ready(function(e) {
                $('input[value=\"uni_screening\"]').parent().parent().after('<hr>');
                $('input[value=\"bhap_exit\"]').parent().parent().after('<hr>');
             })
             ")))
       ),
       # outputs the dynamic UI component
       uiOutput("ui")
     )
    )
  )
)

Answer 2

Попробуйте вставить hr () , что является горизонтальным правилом . Это должно поставить в пространство с горизонтальной линией. Другой вариант будет br () , пустое правило , делая то же самое минус строка.