Shiny Dashboard rpivotTable Layout

Question

Ich habe eine Pivotable generiert von rpivotTable library.Ich verwende glänzende Dashboard, um die Ausgabe der Pivotable in einer Box anzuzeigen. Die Passform scheint nicht richtig zu sein.

Unten ist der Screenshot, wie die Ausgabe aussieht.

Ich habe versucht, die Box Größe zu erhalten, die Pivot-Tabelle Größe entsprechen und eine Bildlaufleiste, wenn die Größe der Pivot-Tabellen mehr ist. Aber die Hintergrundfarbe "skin-blue" scheint der Größe der Box nicht zu entsprechen.

unten ein Beispielcode:

ui.R

library(shiny) 
library(shinydashboard) 
library(rpivotTable) 
header <- dashboardHeader(title="Dashboard") 
sidebar <- dashboardSidebar(
    menuItem("Menu1",icon = icon("dashboard"), 
      menuSubItem("Sub1", icon = icon("dashboard")), 
      menuSubItem("Sub2", icon = icon("dashboard")), 
      menuSubItem("Sub3", icon = icon("dashboard")) 
      ), 
    menuItem("Menu2",icon = icon("dashboard"), 
      menuSubItem("Sub12", icon = icon("dashboard")), 
      menuSubItem("Sub22", icon = icon("dashboard")), 
      menuSubItem("Sub32", icon = icon("dashboard")))) 
body <- dashboardBody(

    tabItem(tab = "sub1", 

      box(width = 12,selectInput("testip",label = "Input",choices = c("A","B","C")), 
       selectInput("testip1",label = "Input",choices = c("A","B","C")), 
       selectInput("testip2",label = "Input",choices = c("A","B","C")), 
          actionButton("submit","Submit")), 
      box(width = 12,height = "800px", 
      tags$head(tags$style(type = 'text/css', '#myPivot{ overflow-x: scroll; overflow-y: scroll; }')), 
      rpivotTableOutput("myPivot", height = "780px"))) 

) 
dashboardPage(header, sidebar, body) 

server.R

server <- function(input, output) { 

    output$myPivot <- renderRpivotTable(rpivotTable(data = mtcars, rows = "mpg", cols = "disp")) 

} 

Answer 1

Versuchen Höhen an ui

tags$head(tags$style(type = 'text/css', '#Alert{ overflow-x: scroll; }')), 
rpivotTableOutput("myPivot")) 

Dann auf Server entfernen, Definiere Höhen

output$myPivot <- renderRpivotTable(rpivotTable(data = mtcars, rows = "mpg", cols = "disp", height = "780px")) 

Das funktioniert für mich.