R Блестящий галстук ширина TextArea в wellPanel ширина

Question

Я учусь, как использовать блестящий пакет в R, чтобы создать приложение, используя файлы ui.R и server.R ниже:

# ui.R 
library(shiny) 
# 
shinyUI(
    fluidPage(
     fluidRow(
      column(width = 6, 
       wellPanel(
        h5("Your input ="), 
        tags$textarea(id = "myText", rows = 22, cols = 60, "") 
       ) 
      ), 
      column(width = 6, offset = 0, 
       wellPanel(
        h5("Our output ="), 
        verbatimTextOutput("myText") 
       ) 
      ) 
     ) 
    ) 
) 

и

# server.R 
library(shiny) 
# 
shinyServer(
    function(input, output) { 
     output$myText <- renderText({input$myText}) 
    } 
) 

Что я хотел бы знать, так это то, как я могу изменить ширину textarea при изменении размера окна, но остаюсь в пределах его wellpanel? В настоящее время ширина textarea не изменяется, поскольку wellPanel становится меньше или больше по мере изменения размера окна. Таким образом, текстовое поле может вырваться из его wellPanel и покрыться соседней wellPanel!

Может ли ширина текстовой области быть привязана к ширине wellPanel, чтобы она менялась, когда панель лунок становится меньше или больше? Я не осведомлен в CSS или HTML, поэтому потребуется много помощи, если решение включает в себя.

Спасибо!

SSB

Answer 1

Я обнаружил это совершенно случайно, и это похоже на работу:

Добавить теги $ стиль (тип = "текст/CSS", "текстовое поле {ширина: 100%}") , закодировать в первом wellPanel, как показано ниже:

wellPanel(
    h5("Your input ="), 
    tags$style(type="text/css", "textarea {width:100%}"), 
    tags$textarea(id = "myText", rows = 22, cols = 60, "") 
) 

Спасибо, SSB