Question

以下是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")


  )
)

Answer 1

您最好提供一份可重复的工作示例。测试一下，并通知我是否有帮助：

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

减少侧边框中闪亮的所有元素的字体

1 个答案: