r - 在 Shiny 中对输入小部件进行分组

Question

我正在构建一个 Shiny 应用程序，我希望能够对输入小部件进行分组，最好为每个组设置一个标题。例如，我想要一个“裤子尺码”框，其中包含腰围下拉框和内缝下拉框，然后是另一个“T 恤尺码”框，其中包含 XS/S/下拉框M/L/XL 和单选按钮，适合中性款/女款。

有没有办法将小部件集放在它们自己的盒子中，或者打破它们都进入的标准灰色盒子？

谢谢!

Answer 1

如果您想使用 fluidPage 布局，而您的问题仅与布局相关:我的想法是将这些小部件“分组”在面板中，然后自定义样式 (CSS)那些面板。例如，您可以使用网格布局或侧边栏布局。

示例from this post .

library(shiny)
ui <- shinyUI(fluidPage(
  tags$head(tags$style(
    HTML('
         #sidebar, #sidebar2 {
            border: 1px solid black;
        }
        body, label, input, button, select { 
          font-family: "Arial";
        }')
  )),
  titlePanel("Hello Shiny!"),
  fluidRow(
    column(4,
           sidebarLayout(
             sidebarPanel(width = 12, id="sidebar",
                          h5("Pants size"),
                          sliderInput("waist",
                                      "waist:",
                                      min = 1,
                                      max = 50,
                                      value = 30),
                          sliderInput("inseam",
                                      "inseam:",
                                      min = 1,
                                      max = 50,
                                      value = 30)
             ),
             mainPanel( width = 0)
           )
           ),
    column(8,sidebarLayout(
      sidebarPanel(width = 12, id="sidebar2",
                   h5("T-shirt size"),
                   selectInput("waist",
                               "Choose your size:",
                               choices = c("XS","S","M","L","XL")),
                   radioButtons("sex",
                                "sex:",
                                choices = c("unisex","women's"))
      ),
      mainPanel( width = 0)
    ) )
  )
  )
)
server <- shinyServer(function(input, output) {
})
shinyApp(ui=ui,server=server)

在此示例中，关键面板有两个 ID，分别称为 sidebar 和 sidebar2。此 ID 在上面的 CSS 部分中使用。在此处阅读有关面板的更多信息:

• http://shiny.rstudio.com/tutorial/lesson2/
• http://shiny.rstudio.com/articles/layout-guide.html

另一种使用盒子的方法是 shinydashboards，在这里阅读更多相关信息:https://rstudio.github.io/shinydashboard/structure.html#boxes