Удалить горизонтальную полосу прокрутки на входе Shiny UI

Question

Это минимальное приложение, которое воспроизводит мою проблему:

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, но я не могу найти, где разместить этот фрагмент кода. Другие подходы, очевидно, приветствуются.

Answer 1

Вам необходимо включить пользовательские инструкции 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)