在列布局調整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