Я пытаюсь объединить расположение нескольких анализов, которые я регулярно выполняю, в 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.