下拉菜单未在闪亮的 tabPanel 中扩展答案

【问题标题】：Dropdowns not extending in shiny tabPanel下拉菜单未在闪亮的 tabPanel 中扩展
【发布时间】：2014-04-23 02:41:54
【问题描述】：

当下拉框包含在闪亮应用中的选项卡面板中时，它的行为方式与选项卡面板之外的方式不同。在选项卡面板之外，当它处于活动状态时，它会延伸到包含它的元素之外，但作为选项卡面板，它会受到限制，因此很难使用。

我希望能够在侧边栏面板中使用标签面板，谁能建议如何让它们表现？

在标签面板中（有问题）

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) {}))

【问题讨论】：

标签： r shiny

【解决方案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) {}))

【讨论】：