如何在侧边栏折叠时自动缩放uiOutput()

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      actionButton("collapse_btn", "折叠侧边栏")
    ),
    mainPanel(
      uiOutput("output")
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$collapse_btn, {
    toggleClass <- if (input$collapse_btn %% 2 == 0) "collapsed" else ""
    updateCssClass <- paste0("$('#output').toggleClass('", toggleClass, "')")
    session$sendCustomMessage(type = "jsCode", message = updateCssClass)
  })
  
  output$output <- renderUI({
    tags$div(
      id = "output",
      h3("这是一个自动缩放的输出"),
      p("当侧边栏折叠时，这个输出会自动缩放")
    )
  })
}

shinyApp(ui, server)