2017-09-10 125 views
2

下面的脚本在R闪亮的仪表板页面中的两个框内创建两个图,这两个图对齐框的右侧,我希望对齐这些图的中心这些包是创建给定图的最低要求包。请帮忙。在R闪亮的仪表板中对齐框的中心()(R)

## 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) 

enter image description here

+0

嘿,感谢回答,我试过了,但是都不行,对齐似乎是一个CSS属性,不能在此使用上下文。 –

+0

如果您可以帮助我,我现在就陷入这个问题一段时间,我将不胜感激。 –

+0

由于情节在盒子里,因此fluidrow()也不起作用。在盒子里面和外面都试过,如果你可以用这种方式定位你的任何情节,请分享剧本。 –

回答

2

这个问题似乎是该htmlwidgets与960个像素宽度左右初始化。有两种方法来覆盖这可能是:

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 
    ) 
) 
) 

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) 
    ) 
) 
) 
+0

先生,我希望我们有一种方式向本网站上的开发人员致敬,完全是我在寻找什么,不知道有关html小部件的信息,非常有帮助。 –

+0

我也在努力解决一个问题,非常感谢你的帮助。 链接:https://stackoverflow.com/questions/46128437/passing-dynamic-input-and-updating-visual-in-r-shiny?noredirect=1#comment79220189_46128437 –

+0

@AshminKaul看到我的答案在那里。 – lukeA