如何在R闪亮应用中添加水平和垂直滚动条，通过滚动显示全图

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  # 在这里放置你的应用界面布局
)

server <- function(input, output) {
  # 在这里放置你的服务器逻辑
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  fluidRow(
    scrollablePanel(
      width = "500px",
      # 在这里放置你的应用界面布局
    )
  )
)

server <- function(input, output) {
  # 在这里放置你的服务器逻辑
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  fluidRow(
    scrollablePanel(
      width = "500px",
      column(
        width = 12,
        img(src = "path_to_image.jpg", style = "width:100%; height:auto;")
      )
    )
  )
)

server <- function(input, output) {
  # 在这里放置你的服务器逻辑
}

shinyApp(ui, server)