在列布局中调整textAreaInput的大小

Question

我无法在以下布局中调整textAreaInput的大小：

我已经尝试了width = 100%以及col=200或更多，但不知何故，左边的字段总是很窄。删除fluidPage似乎有所帮助，但随后两列堆叠在一起（不确定原因）。

library(shiny)

shinyApp(
  #UI
  ui = fluidPage(fluidRow(
    column(8,
           textAreaInput("text1", 'input', value = paste(sample(letters, 100, T), collapse = ""), 
                         cols=80, rows = 5, resize = "vertical")),
    column(4, 
           verbatimTextOutput("text2"))

  )),
  #Server
  server = function(input, output) {

    output$text2 <- renderText({ 
      paste(sample(letters, 100, T), collapse = "")
    })

  }
)

Answer 1

以下是您的解决方案：

library(shiny)

shinyApp(
  #UI
  ui = fluidPage(fluidRow(
    column(8,
           textAreaInput("text1", 'input', width=600, value = paste(sample(letters, 100, T), collapse = ""), 
                         cols=80, rows = 5, resize = "vertical")),
    column(4, 
           verbatimTextOutput("text2"))

  )),
  #Server
  server = function(input, output) {

    output$text2 <- renderText({ 
      paste(sample(letters, 100, T), collapse = "")
    })

  }
)

你需要使用px设置参数width = ...而不是％，在这种情况下我使用了width=600