Блестящие диаграммы панели мониторинга - перекрывающиеся

Question

Я использую блестящий пакет панели инструментов для своего приложения. при попытке отобразить 2 сюжета на одной странице (каждая в коробке), они перекрываются. также пытался использовать fluidRow для каждого участка - но все же, кажется, и сюжет связаны с одной и той же коробкой (и перекрытия)

Это мой код:

mainPanel(
    fluidRow( 
    box(showOutput("MeasuresPlot","morris"),width=6,title="Graph"), 
    box(showOutput("ImportPlot","morris"),width=6,title="Graph2") 
    )  
) 

Answer 1

Вашими почти там, внутри строки жидкости вы можете использовать столбцы, как это:

library(shiny) 
library(shinydashboard) 


ui <-dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
     fluidRow(
     column(6,box(plotOutput("plt1"),width=12,title="Graph",background ="green")), 
     column(6,box(plotOutput("plt2"),width=12,title="Graph2",background="yellow")) 
    ), 
     fluidRow(actionButton("plot","plot")) 
    ) 
) 

server <- shinyServer(function(input, output, session) { 
    observeEvent(input$plot,{ 
    output$plt1 <- renderPlot({plot(runif(100),runif(100))}) 
    output$plt2 <- renderPlot({plot(runif(100),runif(100))}) 
    }) 
}) 

shinyApp(ui = ui, server = server) 

максимальная ширина fluidRow составляет 12 поэтому установка каждый столбец имеет ширину 6 дает 2 равные участки шириной.