如何解决如何在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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。