删除Shiny UI的输入上的水平滚动条

debugcn 发表于 Dev

大卫·约克拉

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

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，但是我找不到将这段代码放在哪里。其他方法显然是受欢迎的。

Dzimitry M.

您需要在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)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。