閃亮的儀表板空框大小

我正在開發與儀表板閃亮的應用程序。在輸入數據之前，我有很好的警告短語，但它們出現在外框或邊緣上，如下圖所示。我不知道該怎麼做。閃亮的儀表板空框大小

我試圖在箱子創建空的空間，如這裏：

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

的問題是：

來源

2017-07-07 Elvie

你拼寫錯誤！ –

您可以繼續前進，創建一個空ggplot對象（或任何情節您正在使用），因此它顯示空白平原時驗證是假的。 –

您可以使用css來調整tabPanel的高度。 – SBista

我創建一個你想達到的最簡單的例子。這裏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)

使用你得到這樣的事情上面的代碼：

希望它能幫助！

來源

2017-07-11 09:24:52 SBista

非常感謝！ – Elvie

如果您的問題已解決，您是否可以接受答案？ – SBista

閃亮的儀表板空框大小

回答

相關問題