在创建Shiny仪表盘时,我认为如果盒子的高度相等,它们的顶部和底部将对齐。不是这种情况。此处的顶部对齐良好,而底部则没有对齐:
如何确保顶部和底部对齐?
注意:即使两个框用完全相同的ggplot填充,底部的错位也会发生。
这些instructions表示这很容易。
通过设置高度,可以强制将盒子都设置为相同的高度。与使用12宽Bootstrap网格设置的宽度不同,高度以像素为单位指定。
示例代码
## app.R ##
library(shiny)
library(shinydashboard)
library(ggplot2)
ui <- dashboardPage(
dashboardheader(title = "Box alignmnent test"),dashboardSidebar(),dashboardBody(
# Put boxes in a row
fluidRow(
box(tableOutput("pop_num"),height = 350),box(plotOutput("speed_distbn",height = 350))
)
)
)
server <- function(input,output) {
# Population numbers
output$pop_num <- renderTable({
df <- tibble(
x = c(1,2,3,4),y = c(5,6,7,8)
)
})
# Population distribution graph
output$speed_distbn <- renderPlot({
ggplot(data = cars,aes(x = speed,y = dist)) +
geom_point()
})
}
shinyApp(ui,server)