如何在RShiny中动态改变列宽？

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      column(width = 3, box(plotOutput("plot1"))),
      column(width = 9, box(plotOutput("plot2")))
    )
  )
)

server <- function(input, output) {
  output$plot1 <- renderPlot({
    # 绘制图表1
  })
  
  output$plot2 <- renderPlot({
    # 绘制图表2
  })
}

shinyApp(ui, server)

library(shiny)
library(shiny.semantic)

ui <- semanticPage(
  semanticContainer(
    semanticRow(
      semanticColumn(width = 3, plotOutput("plot1")),
      semanticColumn(width = 9, plotOutput("plot2"))
    )
  )
)

server <- function(input, output) {
  output$plot1 <- renderPlot({
    # 绘制图表1
  })
  
  output$plot2 <- renderPlot({
    # 绘制图表2
  })
}

shinyApp(ui, server)