[英]How to customize the space between an HTML text and verbatimTextOutput in Shiny and Shinydashboard
[英]How to remove space between column layouts in tabItem for Shinydashboard
我正在設計一個閃亮的儀表板,我想將選項卡的其中一個頁面分成兩列,第一列的寬度為 3,第二列的寬度為 9。我正在顯示一個界面,用於在左列,以及左側的結果數據框。 但是,兩者之間有很大的空間(見圖)。 我想刪除這個空間,或將其縮小到合理的數量。
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)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.