Высота внутри тела Shinydashboard при вызове внешнего кода с помощью source()

Question

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

Мне удалось успешно изменить размер box(), в котором будет размещаться график, с помощью CSS и путем указания высоты в пикселях, но никакие изменения в коде графика или коде 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)

Высота блока составляет 1000 пикселей, но график, вызываемый source(), всегда равен 400 пикселям в соответствии с iFrame, созданным Shiny.