我的問題是我的selectInput()被卡片的下邊框截斷了:

library(shiny) # Version 1.7.4
library(bslib) # Version 0.5.0

ui <- page_fluid(
  navset_card_pill(nav_panel(
    title = "No overflow :(",
    selectInput("test", NULL, letters)
  ))
)

server <- function(input, output, server) {}

shinyApp(ui, server)

帶卡的解決方案(): 我已經(jīng)使用card()解決了這個問題，因為這允許您為卡/卡體設(shè)置一個自定義類。然而，navset_card_pill()和nav_panel()不允許這樣做，所以這個特殊的解決方案不能繼續(xù)使用。

ui <- page_fluid(
  tags$head(tags$style(HTML("
    .foo {
      overflow: visible !important;
    }
  "))),
  
  card(
    class = "foo",
    selectInput("test", NULL, letters),
    wrapper = function(...) card_body(..., class = "foo")
  )
)

server <- function(input, output, server) {}

shinyApp(ui, server)

編輯#1 我現(xiàn)在找到了一個解決方案，它包括如下修改幾個css類:

ui <- page_fluid(
  tags$head(tags$style(HTML("
    .bslib-card, .tab-content, .tab-pane, .card-body {
      overflow: visible !important;
    }
  "))),
  navset_card_pill(nav_panel(
    title = "Overflow achieved!",
    selectInput("test", NULL, letters)
  ))
)

盡管這并不理想——理想情況下，我想在我的應(yīng)用程序中不修改這些類的“全局”默認(rèn)值的情況下實現(xiàn)這種行為。