r - 下拉菜单未在 Shiny 的 tabPanel 中扩展

Question

当下拉框作为选项卡面板的一部分包含在 Shiny 的应用程序中时，它的行为方式与选项卡面板外部的行为方式不同。在选项卡面板之外，当它处于事件状态时，它会延伸到包含它的元素之外，但作为选项卡面板，它受到限制，使其非常难以使用。

我希望能够在侧边栏面板中使用选项卡面板，有人可以建议如何让它们发挥作用吗？

在选项卡面板中(有问题)

library(shiny)

runApp(list(
  ui = pageWithSidebar(
    headerPanel("Dropdown issues in panels"),
    sidebarPanel(
      tabsetPanel(id="tabsetLeft",
                  tabPanel("Panel1",
                           selectInput("select1", "Select", 1:5)
                  ))),
    mainPanel()),
  server = function(input, output) {}))

在选项卡面板之外(我希望它如何工作)

library(shiny)

runApp(list(
  ui = pageWithSidebar(
    headerPanel("Dropdown issues in panels"),
    sidebarPanel(
      selectInput("select1", "Select", 1:5)),
    mainPanel()),
  server = function(input, output) {}))

Answer 1

您需要添加一些CSS。 .tab-content 上的溢出需要可见”

.tab-content {
  overflow: visible;
}

您可以将其添加到应用目录或内联的 www 文件夹中的 styles.css 中:

library(shiny)

runApp(list(
    ui = pageWithSidebar(
        headerPanel("Dropdown issues in panels"),
        sidebarPanel(
            tabsetPanel(id="tabsetLeft",
                        tabPanel("Panel1",
                                 selectInput("select1", "Select", 1:5)
                        ))),
        mainPanel(tags$head(tags$style(type="text/css", ".tab-content {overflow: visible;}")))),
    server = function(input, output) {}))