r - 如何在 Shinydashboard 的 tabItem 中删除列布局之间的空间
问题描述
我正在设计一个闪亮的仪表板,我想将选项卡的一个页面分成两列,第一列的宽度为 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)
有谁知道我将如何删除该空间?谢谢你。
解决方案
在 box() 内将宽度设置为 NULL,这将确保宽度由包含框的列设置(在您的情况下为 3)。
box(…, width=NULL)
推荐阅读
- javascript - 当字符串在双引号内有单引号时,如何在Javascript中将此字符串转换为JSON对象
- excel - Workbook.close 导致 sub 退出
- c++ - 如何运行 Wave 快速入门示例?
- vba - PowerPoint 加载项 将文本框添加到所选幻灯片
- c# - 在实现具有默认方法实现的接口的类上使用`GetMethod`返回null
- c# - LINQ 在更大的集合中找到一组值的 MAX 值
- mysql - 执行灵活搜索查询时无法评估表达式方法引发“java.lang.illegalargumentexception”异常
- android - 无法使用 FileProvider 与其他应用共享图像文件
- javascript - 网页上的 Javascript 空白页
- node.js - 查询 MongoDB 问题