移除 Shiny UI 输入端的水平滚动条答案

【问题标题】：Remove horizontal scrollbar on Shiny UI's input移除 Shiny UI 输入端的水平滚动条
【发布时间】：2020-02-21 13:23:49
【问题描述】：

这是重现我的问题的最小应用程序：

library(shiny)

ui <- fluidPage(
  sidebarLayout(

    sidebarPanel(
      sliderInput("input1", "input1", min = as.Date("2020-02-03"), max = as.Date("2020-12-30"), 
                  value = c(as.Date(Sys.Date()), as.Date("2020-12-30"))),
      hr(),
      splitLayout(checkboxGroupInput("input2", "input2", choices = c("a", "b")),
                  verticalLayout(checkboxInput("input3", "input3")))),

  mainPanel()))

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

}

shinyApp(ui, server)

生成的应用程序为input3 提供了一个水平滚动条，即使屏幕尺寸允许它有足够的空间。潜伏在其他类似问题上，人们建议给它一个css 属性和overflow:hidden，但我找不到将这段代码放在哪里。其他方法显然是受欢迎的。

【问题讨论】：

标签： css r shiny

【解决方案1】：

您需要在 UI 部分的开头包含自定义 CSS 说明。

library(shiny)

ui <- fluidPage(
  # Include custom CSS
  tags$head(
    tags$style(HTML('.shiny-split-layout>div {overflow: hidden;}')),
  ),
  sidebarLayout(

    sidebarPanel(
      sliderInput("input1", "input1", min = as.Date("2020-02-03"), max = as.Date("2020-12-30"), 
                  value = c(as.Date(Sys.Date()), as.Date("2020-12-30"))),
      hr(),
      splitLayout(checkboxGroupInput("input2", "input2", choices = c("a", "b")),
                  verticalLayout(checkboxInput("input3", "input3")))),

    mainPanel()))

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

}

shinyApp(ui, server)

【讨论】：