如何在RShiny中动态更改列的宽度？

Question

我想知道是否有可能（如果可以，如何）在RShiny中动态更改列的宽度？

下面是一个简单的可复制示例，说明了我如何看待它的工作原理（但如果您取消注释服务器部分，则该应用程序将崩溃）。本质上，我想做的是有一个滑块，它可以调整列的宽度。

也许我实际上想做的一个更好，更优雅的示例在这里（link）。我想要两个相邻的面板，当您调整一个面板的宽度大小（即向左或向右拖动面板的边框）时，旁边的面板会自动调整大小以适应空间。

有人知道如何在Shiny中执行此操作吗？

感谢您的帮助！

library(shiny)

length_1 = 2
length_2 = 10

ui <- fluidPage(
 fluidRow(
   column(width = length_1,"Text"),
   column(width = length_2,"More text")
 ),
 fluidRow(
   column(
   width = 12, sliderInput("length","slide",min = 0,max = 12,value = 2)
 ))
)

server <- function(input, output, session) {
  #length_1 = input$length
  #length_2 = 12-input$length

}

shinyApp(ui, server)

Answer 1

您可以使用renderUI执行此操作