シャイニーダッシュボード空ボックスサイズ

Question

私はダッシュボードで輝くアプリを開発しています。データが入力される前に、私は警告付きの素敵なフレーズを持っていますが、それらは箱の外に出ている、または下の写真のような端に現れています。私は何をすべきか分かりません。

私はここのようなボックス内の空のスペースを作成してみました：

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

問題がある：

Answer 1

私が作成していますあなたが達成したいことの最小限の例。 ここで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) 

！