闪亮的仪表板主面板高度问题

Question

这是我的previous question的扩展。现在我无法延长我主面板的高度。

这低于

library(shiny) 
library(shinydashboard) 
library(shinyBS) 
library(DT) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(
    sidebarPanel(
     textInput("text", "Enter Id:"), 
     box(width = 1, background = 'purple'), 
     actionButton("Ok", "Press Ok",style='padding:8px; font-size:100%') 
    ) 

), 
    dashboardBody(

    mainPanel(width = 12, 

     tabsetPanel(

     tabPanel("About", value=1, h6("The objective is to test width of ShinyApp in tabPanel design", br(), 
             br(), 

             "Distribution Prototype" 

            ) 
       ), 


     tabPanel("Data", value=2, 

       fluidRow(

        valueBoxOutput("vbox1", width = 2), 
        valueBoxOutput("vbox2", width = 2), 
        valueBoxOutput("vbox3", width = 2), 
        valueBoxOutput("vbox4", width = 2), 
        valueBoxOutput("vbox5", width = 2), 
        valueBoxOutput("vbox6", width = 2) 


       ), 

       fluidRow(

        column(width = 4, box(title = "Iris", width = NULL, solidHeader = FALSE, dataTableOutput("dat1"))), 
        column(width = 4, box(title = "MT Cars", width = NULL, solidHeader = FALSE, dataTableOutput("dat2"))), 
        column(width = 4, box(title = "Old Faithful Gyser", width = NULL, solidHeader = FALSE, dataTableOutput("dat3")))), 

       fluidRow(


        column(width = 4, box(title = "Plot1", width = NULL, solidHeader = FALSE, plotOutput("plot1", height = "600px"))), 
        column(width = 4, box(title = "Plot2", width = NULL, solidHeader = FALSE, plotOutput("plot2", height = "600px"))), 
        column(width = 4, box(title = "Plot3", width = NULL, solidHeader = FALSE, plotOutput("plot3", height = "600px"))) 


       ) 

     ) 
    ) 
    ) 
)) 

server <- function(input, output) { 

    output$vbox1 <- renderValueBox({ valueBox("One","Yes",icon = icon("stethoscope"))}) 
    output$vbox2 <- renderValueBox({ valueBox("Two","Yes",icon = icon("stethoscope"))}) 
    output$vbox3 <- renderValueBox({ valueBox("Three","Yes",icon = icon("stethoscope"))}) 
    output$vbox4 <- renderValueBox({ valueBox("Four","Yes",icon = icon("stethoscope"))}) 
    output$vbox5 <- renderValueBox({ valueBox("Five","Yes",icon = icon("stethoscope"))}) 
    output$vbox6 <- renderValueBox({ valueBox("Six","Yes",icon = icon("stethoscope"))}) 

    output$dat1 <- renderDataTable({datatable(iris)}) 
    output$dat2 <- renderDataTable({datatable(mtcars,extensions = 'Responsive')}) 
    output$dat3 <- renderDataTable({datatable(faithful,rownames = FALSE, options = list(autoWidth = TRUE) )}) 

} 

shinyApp(ui, server) 

该地块被伸出的默认布局空间的，我没有找到在mainPanel()任何选项来增加高度，是我的代码。我试图强制mainPanel()内的高度值，就像这个mainPanel(width = 12, height, 20 ....)那样没有用。任何建议，非常感谢。

+

--------- -------------更新

不知道这是否有帮助，这不是一个问题，当我

library(shiny) 
library(shinydashboard) 
library(DT) 

ui <- dashboardPage(
    dashboardHeader(title = "Dynamic boxes"), 


    dashboardSidebar(
    conditionalPanel(condition="input.tabselected==3", 
        textInput("text", "Enter Id:"), 
        box(width = 1, background = 'purple'), 
        actionButton("Ok", "Press Ok",style='padding:8px; font-size:100%') 
    ) 
), 
    dashboardBody(
    fluidRow(

     valueBoxOutput("vbox1", width = 2), 
     valueBoxOutput("vbox2", width = 2), 
     valueBoxOutput("vbox3", width = 2), 
     valueBoxOutput("vbox4", width = 2), 
     valueBoxOutput("vbox5", width = 2), 
     valueBoxOutput("vbox6", width = 2) 


    ), 

    fluidRow(

     column(width = 4, box(title = "Iris", width = NULL, solidHeader = FALSE, dataTableOutput("dat1"))), 

     column(width = 4, box(title = "MT Cars", width = NULL, solidHeader = FALSE, dataTableOutput("dat2"))), 

     column(width = 4, box(title = "Old Faithful Gyser", width = NULL, solidHeader = FALSE, dataTableOutput("dat3"))) 


), 

    fluidRow(


    column(width = 4, box(title = "Plot1 ", width = NULL, solidHeader = FALSE, plotOutput("plot1", height = "600px"))), 
    column(width = 4, box(title = "Plot2", width = NULL, solidHeader = FALSE, plotOutput("plot2", height = "600px"))), 
    column(width = 4, box(title = "Plot3", width = NULL, solidHeader = FALSE, plotOutput("plot3", height = "600px"))) 


) 



) 
) 


server <- function(input, output) { 

    output$vbox1 <- renderValueBox({ valueBox("One","Yes",icon = icon("stethoscope"))}) 
    output$vbox2 <- renderValueBox({ valueBox("Two","Yes",icon = icon("stethoscope"))}) 
    output$vbox3 <- renderValueBox({ valueBox("Three","Yes",icon = icon("stethoscope"))}) 
    output$vbox4 <- renderValueBox({ valueBox("Four","Yes",icon = icon("stethoscope"))}) 
    output$vbox5 <- renderValueBox({ valueBox("Five","Yes",icon = icon("stethoscope"))}) 
    output$vbox6 <- renderValueBox({ valueBox("Six","Yes",icon = icon("stethoscope"))}) 

    output$dat1 <- renderDataTable({datatable(iris)}) 
    output$dat2 <- renderDataTable({datatable(mtcars,extensions = 'Responsive')}) 
    output$dat3 <- renderDataTable({datatable(faithful,rownames = FALSE, options = list(autoWidth = TRUE) )}) 
    #output$dat4 <- renderDataTable({datatable(data.frame(HairEyeColor),extensions = 'Responsive')}) 
} 

shinyApp(ui, server) 

Answer 1

您没有使用从shinydashboard的功能，而是标准shiny封装不使用的mainPanel（）和你需要用你的tabBox一个fluidRow内。

library(shiny) 
library(shinydashboard) 
library(shinyBS) 
library(DT) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(
    sidebarPanel(
     textInput("text", "Enter Id:"), 
     box(width = 1, background = 'purple'), 
     actionButton("Ok", "Press Ok",style='padding:8px; font-size:100%') 
    ) 

), 
    dashboardBody(

       fluidRow(
       tabBox(width = 12, height = NULL, 

       tabPanel("About", value=1, h6("The objective is to test width of ShinyApp in tabPanel design", br(), 
               br(), 

               "Distribution Prototype" 

       ) 
       ), 


       tabPanel("Data", value=2, 

         fluidRow(

          valueBoxOutput("vbox1", width = 2), 
          valueBoxOutput("vbox2", width = 2), 
          valueBoxOutput("vbox3", width = 2), 
          valueBoxOutput("vbox4", width = 2), 
          valueBoxOutput("vbox5", width = 2), 
          valueBoxOutput("vbox6", width = 2) 


         ), 

         fluidRow(

          column(width = 4, box(title = "Iris", width = NULL, solidHeader = FALSE, dataTableOutput("dat1"))), 
          column(width = 4, box(title = "MT Cars", width = NULL, solidHeader = FALSE, dataTableOutput("dat2"))), 
          column(width = 4, box(title = "Old Faithful Gyser", width = NULL, solidHeader = FALSE, dataTableOutput("dat3")))), 

         fluidRow(


          column(width = 4, box(title = "Plot1", width = NULL, solidHeader = FALSE, plotOutput("plot1"))), 
          column(width = 4, box(title = "Plot2", width = NULL, solidHeader = FALSE, plotOutput("plot2"))), 
          column(width = 4, box(title = "Plot3", width = NULL, solidHeader = FALSE, plotOutput("plot3"))) 


         ) 

       ) 
      ) 
    ) 
)) 

server <- function(input, output) { 

    output$vbox1 <- renderValueBox({ valueBox("One","Yes",icon = icon("stethoscope"))}) 
    output$vbox2 <- renderValueBox({ valueBox("Two","Yes",icon = icon("stethoscope"))}) 
    output$vbox3 <- renderValueBox({ valueBox("Three","Yes",icon = icon("stethoscope"))}) 
    output$vbox4 <- renderValueBox({ valueBox("Four","Yes",icon = icon("stethoscope"))}) 
    output$vbox5 <- renderValueBox({ valueBox("Five","Yes",icon = icon("stethoscope"))}) 
    output$vbox6 <- renderValueBox({ valueBox("Six","Yes",icon = icon("stethoscope"))}) 

    output$dat1 <- renderDataTable({datatable(iris)}) 
    output$dat2 <- renderDataTable({datatable(mtcars,extensions = 'Responsive')}) 
    output$dat3 <- renderDataTable({datatable(faithful,rownames = FALSE, options = list(autoWidth = TRUE) )}) 

} 

shinyApp(ui, server)