css - 在Shinydashboard主体中剪切了背景色

在用户输入后，我有几个方框将填充图表和表格。

由于我已将布局更改为基于列，因此背景颜色似乎在第一个框下被剪切，如下所示:


我不确定为什么会这样。

这是复制布局的示例代码:

library(shiny)
library(shinydashboard)
sidebar <- dashboardSidebar(
  sidebarMenu(
    busyIndicator(text="Loading..."),
    tags$head(
      tags$style(
        HTML('
             #uploadfile{height: 25px}
             #rat{height: 25px; font-size: 10px}
             #pnum{height: 25px; font-size: 10px}
             #mytext{width: 50px}
             .content-wrapper,
             .right-side {
             background-color: #EBE5D0;
             }
             li { cursor: pointer; cursor: hand; }
             ')
        )
        ),
    menuItem("Network", icon = icon("table"), tabName = "network", badgeColor = "green")
        )
      )

body <- dashboardBody(
  tabItems(
    tabItem(tabName = "network",
            column( width = 2,
                    box(
                      title="INPUT FILES",solidHeader = TRUE, status="primary",
                      fileInput('file1',"file 1", multiple=F,accep=".Rdata"),
                      fileInput('file2',"file 2", multiple=F,accep=".Rdata"),
                      fileInput('file3',"file 3", multiple=F,accep=".Rdata"),
                      fileInput('file4',"file 4", multiple=F,accep=".Rdata"),
                      uiOutput("phenoselect"),
                      uiOutput("phenolog"),
                      tags$div(align = 'left',
                               class = 'multicol', uiOutput("covarselect")),
                      uiOutput("snpPlotButton"),
                      height = 800,
                      width = NULL
                    )
            ),
            column(width = 8,
                   box(
                     title="PLOT",solidHeader = TRUE, status="primary",
                     plotOutput('plotSNPmaf',height="500px"),
                     height = 800,
                     width = NULL
                   ),
                   box(
                     title="TABLE",solidHeader = TRUE, status="primary",
                     dataTableOutput("seqMetaGene"),
                     uiOutput("BoxPlotButton"),
                     width = NULL
                   ),
                   box(
                     title="BOXPLOT",solidHeader = TRUE, status="primary",
                     plotOutput("boxplotSnps"),
                     width = NULL
                   )
            )
    )
  ))


ui<- dashboardPage(
  dashboardHeader(title = "Results"),
  sidebar,
  body
)


server <- function(input, output,session) {}

shinyApp(ui = ui, server = server)

最佳答案

您需要将column包裹在fluidRow中，这样才能正常工作。

像这样:

fluidRow(column( ... ),
         column( ... ))

工作示例的屏幕截图:

关于css - 在Shinydashboard主体中剪切了背景色，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/44570977/