Ausrichten von Plots auf die Mitte der Box() in R glänzenden Armaturenbrett

Question

das Skript erstellt zwei Plots innerhalb von zwei Boxen in R glänzenden Armaturenbrett Seite, die auf der rechten Seite der Box ausgerichtet sind, möchte ich diese Plots Zentrum der ausrichten Box.Diese Pakete sind die mindestens erforderlichen Pakete zum Erstellen der gegebenen Plots. Bitte helfen Sie.

## app.R ## 
library(shiny) 
library(shinydashboard) 
library(bupaR) 
library(edeaR) 
library(eventdataR) 
library(processmapR) 
library(processmonitR) 
library(xesreadR) 
library(petrinetR) 

ui <- dashboardPage(
dashboardHeader(
), 
dashboardSidebar(
width = 0 
), 
dashboardBody(
box(title = "Process Map", status = "primary",height = "575", solidHeader = 
T,patients %>% process_map(),align = "left"), 
box(title = "Resource Map", status = "primary",height = "575", solidHeader = 
T, 
resource_map(patients, render = T)) 
) 
) 

server <- function(input, output) { } 

shinyApp(ui, server) 

Answer 1

Das Problem scheint, dass die htmlwidgets mit 960 Pixel Breite oder so initialisiert werden sollen. Zwei Möglichkeiten, dies zu überschreiben könnten:

pmap <- patients %>% process_map() 
pmap$width <- "100%" 
rmap <- resource_map(patients, render = T) 
rmap$width <- "100%" 
ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(
    width = 0 
), 
    dashboardBody(
    box(
     title = "Process Map", 
     status = "primary",height = "575", 
     solidHeader = T, 
     pmap, 
     align = "left"), 
    box(
     title = "Resource Map", 
     status = "primary", 
     height = "575", 
     solidHeader = T, 
     rmap 
    ) 
) 
) 

oder

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(
    width = 0 
), 
    dashboardBody(
    tags$head(tags$style(HTML(".grViz { width:100%!important;}"))), 
    box(
     title = "Process Map", 
     status = "primary",height = "575", 
     solidHeader = T, 
     patients %>% process_map(), 
     align = "left"), 
    box(
     title = "Resource Map", 
     status = "primary", 
     height = "575", 
     solidHeader = T, 
     resource_map(patients, render = T) 
    ) 
) 
)