Как установить интервал в приборной панели Shiny для нескольких графиков - PullRequest
0 голосов
/ 08 мая 2019

Я пытаюсь построить 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)))
)
)
)

Большое спасибо за вашу помощь

...