在列布局调整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 = "") 
    }) 

    } 
) 

您需要设置参数width = ...使用像素，而不是％，在这种情况下，我已经使用width=600