Я пытаюсь построить 6 карт в приложении shinydashboard и могу добавить 2 карты в ряд, но они обрезаются и не занимают все пространство в столбцах.Вот снимок экрана, показывающий, как первая строка не распространяется в хорошем формате: https://ibb.co/KqDy9rL
Я уже пробовал столбцы (6 ... предложение из Блестящая панель инструментов, несколько графиков - перекрытие, но безрезультатно.
ui <- dashboardPage(
dashboardHeader(title="Our Plots"),
dashboardSidebar(),
dashboardBody(
fluidRow(column(6,box(leafletOutput("myMap",height="400px"),title="Da MF Map",status = "warning", solidHeader = TRUE, collapsible = TRUE)),
column(6,box(plotOutput("plot2",height=400)))
) ,
fluidRow(column(width =12, height = 12,
box(plotOutput("plot1",height=400)))),
# plotOutput("plot1")
fluidRow(column(width =12, height = 12,
box(plotOutput("plot3",height=400)))
)
)
)
server <- function(input, output, session){
data <- reactive({x <- stackoverflow
})
output$myMap <- renderLeaflet({coolmap})
output$plot1 <- renderPlot({myplot})
output$plot2 <- renderPlot({gif})
output$plot3 <- renderPlot({title})
}
shinyApp(ui = ui, server = server)
, а также первоначально:
ui <- dashboardPage(
dashboardHeader(title="Our Plots"),
dashboardSidebar(),
dashboardBody(
fluidRow(column(width=6,height=12,
box(leafletOutput("myMap",height="400px"),title="Da MF Map",status = "warning", solidHeader = TRUE, collapsible = TRUE)),
column(width=6,height=12,
box(plotOutput("plot2",height=400)))
) ,
fluidRow(column(width =12, height = 12,
box(plotOutput("plot1",height=400)))),
# plotOutput("plot1")
fluidRow(column(width =12, height = 12,
box(plotOutput("plot3",height=400)))
)
)
)
Большое спасибо за вашу помощь