R Shiny 将两个图像叠加在一起

RShiny renders two images on top of each other

我遇到了以下问题。 我想在彼此下面绘制两个图,但显然, 这两者总是重叠的。 第一张图片应该保持大小。

我的代码:

plotOutput("Video", width = 1000, height = 1000),
div(style = "display:inline-block",
        plotOutput("farmplot"),
        tableOutput("summary_farm")),
    
div(style = "display:inline-block",
        plotOutput("wildplot"),
        tableOutput("summary_wild"))

'''

非常感谢! the way it currently looks

如果您为 UI 使用 fluidPage() 布局,则可以使用 fluidRow() 垂直分隔元素,使用 column() 水平分隔元素。在闪亮的应用程序布局指南中查看更多信息:https://shiny.rstudio.com/articles/layout-guide.html

ui <- fluidPage(
  fluidRow(
    column(12,
      plotOutput("Video", width = 1000, height = 1000)
    )
  ),
  fluidRow(
    column(6,
        plotOutput("farmplot"),
        tableOutput("summary_farm")
    ), 
    column(6,
        plotOutput("wildplot"),
        tableOutput("summary_wild")
    )
  )
)