R Shiny 将分隔符添加到单选按钮列表选项中

Question

我有这种单选按钮:

             radioButtons("test", "test:",
                          c("def" = "def",
                          "ghi" = "ghi",
                            "jkl" = "jkl")

但我想添加一个分隔符，如 tag$hr将def与其他人分开。
我试图制作两个这样的列表:

radioButtons("test", "test:",
c("def" = "def"),
tag$hr ,
radioButtons("test", "test:",
c("ghi" = "ghi",
"jkl" = "jkl")

但它不起作用。

谢谢 !

Answer 1

根据我在 Shiny 应用程序开发方面的经验，我发现现代浏览器的“检查源”功能非常强大。它让你看到网站背后的 HTML/CSS/JS，然后你可以使用它来模拟你的工作。 Shiny 允许您将 HTML/CSS 直接插入到您的应用程序中。通过运行您提供的 radioButtons 命令，然后使用 Chrome 的开发人员功能，我能够看到构建单选按钮的确切 HTML。然后您可以直接在选项之间插入一个小时。我还在头部添加了一个名为 radio 的新 hr 类，因为默认情况下 hr 周围有一些填充，并且与输入框非常相似。您可能还希望能够在应用程序的其他地方使用常规 hr。

可能有一种更简单的方法来做到这一点，一些更像 HTML/CSS 专家的人可以与之交谈。希望这可以帮助。

library(shiny)


ui <- fluidPage(
     tags$head(
          tags$style(HTML(
               "hr.radio {
                    border: 0;
                    border-top: 1px solid #8c8b8b;
                    padding-top: 1;
               }"
          ))
     ),


   titlePanel("New Radio Button Style"),


   sidebarLayout(
      sidebarPanel(HTML("
<div id='test' class='form-group shiny-input-radiogroup shiny-input-container shiny-bound-input'>
     <label class='control-label' for='test'>test</label>
<div class='shiny-options-group'>
     <div class='radio'>
          <label>
               <input type='radio' name='test' value='one' checked='checked'>
               <span>one</span>
          </label>
     </div>
     <hr class ='radio'>
     <div class='radio'>
          <label>
               <input type='radio' name='test' value='two'>
               <span>two</span>
          </label>
     </div>
     <hr class = 'radio'>
     <div class='radio'>
          <label>
               <input type='radio' name='test' value='three'>
               <span>three</span>
          </label>
     </div>
</div>
</div>")

      ),

      # You can see the input$test is still reacting with the radiobuttons
      mainPanel(
         textOutput("selection")
      )
   )
)


server <- function(input, output) {

   output$selection <- renderText({
      input$test
   })
}


shinyApp(ui = ui, server = server)