2017-09-10 170 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