闪亮的仪表板空框大小

Shiny Dashboard Empty box size

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

我试过在方框中创建空白空间,如下所示:

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")))

问题是:

我已经创建了一个您想要实现的最小示例。 这里 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) 

使用上面的代码你会得到这样的东西:

希望对您有所帮助!