如何在 Shinydashboard 的 tabItem 中删除列布局之间的空间答案

【问题标题】：How to remove space between column layouts in tabItem for Shinydashboard如何在 Shinydashboard 的 tabItem 中删除列布局之间的空间
【发布时间】：2020-09-14 10:37:36
【问题描述】：

我正在设计一个闪亮的仪表板，我想将选项卡的一个页面分成两列，第一列的宽度为 3，第二列的宽度为 9。我正在显示一个下载 csv 的界面文件在左列，结果数据框在左边。但是，两者之间有很大的空间（见图）。我想删除这个空间，或者把它缩小到一个合理的数量。

    ui <- dashboardPage(skin = 'green',
                        dashboardHeader(title = "SD Mesonet Data"),
                        dashboardSidebar(
                          sidebarMenu(
                            menuItem("Upload Data", tabName = "uploadData", icon = icon("folder")),
                            menuItem("Data Table", tabName = "dataTable", icon = icon("table")),
                            menuItem("Variable Statistics", tabName = "varStats", icon = icon("info-circle")),
                            menuItem("Inspect Data", tabName = "inspectData", icon = icon("chart-area"))
                          )
                        ),
                        dashboardBody(
                          tabItems(
                            # First tab content
                            tabItem(tabName = 'uploadData',
                                    fluidRow(
                                      column(width = 3, 
                                             box(fileInput("station_file", "Choose Station CSV File",
                                                           multiple = FALSE,
                                                           accept = ".csv"),
                                                 tags$hr(style="border-color: black;"),
                                                 checkboxInput("header", "Header", TRUE),
                                                 numericInput("skip", "# Rows to Skip", value = 1, min = 0, max = 100, step = 1),
                                                 textInput('nastrings','NA/NaN/Null Strings (separate w/commas)', 'NA,NaN,Null'),
                                                 background = "light-blue"
                                             )
                                      ),
                                      column(width = 9, 
                                             dataTableOutput("rawdata"))
                                    )
                            )
                            )
                          )
                        )
    
    server <- function(input, output){
    
      output$rawdata <- renderDataTable({
        req(input$station_file)
        rawdata <- read.csv(input$station_file$datapath,
                            header = input$header,
                            skip = input$skip,
                            na.strings = input$nastrings)
        rawdata
      })
    }
    
    shinyApp(ui, server)

有谁知道我怎样才能删除那个空间？谢谢。

【问题讨论】：

标签： r shiny shinydashboard

【解决方案1】：

在 box() 中将宽度设置为 NULL，这将确保宽度由包含框的列设置（在您的情况下为 3）。

box(…, width=NULL)

【讨论】：