Shiny 闪亮的仪表板空盒大小

我正在开发带有仪表板的闪亮应用程序。在输入数据之前，我有一些带有警告的漂亮短语，但它们出现在框外或边缘，如下图所示。我不知道该怎么办

我尝试在如下框中创建空白：

box(width=12,
    tabsetPanel(
        tabPanel("Count matrix",
            h4(""),
            DT::dataTableOutput("dataRaw"))))

文本是以下内容的输出：

dataRaw <- reactive({
    validate(need(input$countMatrix != 0, "To perform analysis, please select an input file")))

---

dataRaw我已经创建了一个您想要实现的最小示例。
此处
tags$head（tags$style（HTML（“.tab pane{height:70vh；overflow-y:auto；}”））
将选项卡面板的高度设置为占据屏幕的70%

     library(shiny)
     library(shinydashboard)


     ui <- dashboardPage(
       dashboardHeader(title = "Basic dashboard"),
       dashboardSidebar(),
       dashboardBody(
         box(width=12,
             tags$head(tags$style(HTML(".tab-pane { height: 70vh; overflow-y: auto; }" ))),
             tabsetPanel(
               tabPanel("Count matrix",
                        h4(""),
                        DT::dataTableOutput("dataRaw"))))

       )
     )

     server <- function(input, output) {
       dataRaw <- reactive({
         validate(need(input$countMatrix != 0, "To perform analysis, please select an input file"))
       })

       output$dataRaw <- DT::renderDataTable(dataRaw())
     }

     shinyApp(ui, server) 

库（闪亮）
图书馆（shinydashboard）
ui u拼写错误！您可以继续创建一个空的ggplot对象（或您正在使用的任何绘图），以便在validate为false时显示一个空白的平面。您可以使用css调整tabPanel的高度。如果您的问题已得到解决，您是否可以接受答案？