Высота внутри тела Shinydashboard при вызове внешнего кода с помощью source () - PullRequest
0 голосов
/ 24 января 2019

Я пытаюсь объединить расположение нескольких анализов, которые я регулярно выполняю, в ShinyDashboard.Основная проблема заключается в том, что независимо от запроса, когда я использую source (), сгенерированный iFrame всегда имеет высоту 400px

Мне удалось успешно изменить размер box (), в котором будет находиться графикчерез CSS и путем указания высоты в px, но никакие изменения в коде графика или коде shinydashboard не привели к расширению графика до размера поля.

ui <- dashboardPage(skin = "green",
                dashboardHeader(),
                dashboardSidebar(
                  sidebarMenu(
                    menuItem("Item1", tabName = "Map"),
                    menuItem("Item2", tabName = "Plot"),
                  )
                ),
                dashboardBody(
                  tabItems(
                   tabItem(tabName = "Map",
                            fluidPage(
                              fluidRow(style = "height:1000px",
                                       box(width = 12,
                                           height = "1000px",
                                           source(paste0(APP_PATH,'Map.R'))$value)
                                           )
                                      )
                                     ),
                    tabItem(tabName = "Accounts_Plot",
                            fluidRow(style = "height:1000px",
                                     box(width = 12,
                                         height = "1000px",
                                         source(paste0(APP_PATH,'Plot.R'))$value))
                    ),
                  )
                )
)


server <- function(input,output,session){}

shinyApp(ui,server)

Поле имеет высоту 1000px, но график, вызываемый source (), всегда равен 400px в соответствии с iFrame, созданным Shiny.

...