R 以减少侧边栏面板中所有元素的字体

下面是UI代码的一部分。我无法在侧边栏面板中看到所有selectinput， 我怀疑，它无法进一步滚动，或者可能是因为 必须减少侧边栏。有什么不同的方法可以解决这个问题吗

dashboardPage(title = "title",
  dashboardHeader(title="title1"
  ),
  dashboardSidebar(tags$head(tags$style(HTML("
                      .selectize-input, .selectize-dropdown {
                        font-size:40%;
                        }                     }
                        "))), 

   radioButtons("filetype", "Select file type",choices=c("csv file","xlsx file")),  


   tags$div(title="Date format should be mm/dd/YYYY",fileInput("file1", "Upload Data File", accept = c("text/csv","text/comma-separated-values,text/plain",".csv",".xlsx",".xls"))),   

   uiOutput("col"),
   uiOutput("covariate"),
   uiOutput("dimensions1"),
   uiOutput("levels1"),
   uiOutput("dimensions2"),
   uiOutput("level2"),
   uiOutput("dimensions3"),
   uiOutput("level3"),
   uiOutput("dimensions4"),
   uiOutput("level4")


               ),
  dashboardBody(tags$head(
    tags$style(HTML(".my_class {
                      font-weight: bold;
                      color:white;
                      }")
      ))
    ,uiOutput("All_tab_Display")


  )
)

---

你最好提供一个可复制的工作实例。 测试此项并通知我是否有帮助：

 tags$head(
      tags$style(HTML("
                      .sidebar { height: 90vh; overflow-y: auto; font-size: 10px;}
                      " )
      )
    )

---

我试图重现你的问题，但我做不到。你能不能请我编辑一下代码。@Mahdi，我使用了你提到的标记，它可以工作，但奇怪的是，当应用程序在没有外部鼠标的笔记本电脑上运行时，滚动不起作用。然后试试这个：overflow-y:scroll；嗯，问题仍然存在。如果我能以某种方式减少侧边栏面板所有元素的字体大小，它可能会工作。更新了代码。尝试不同的字体大小来达到你的目标！！现在可以工作了。谢谢你，马赫迪！！