[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覆盖！

textarea宽度可以绑定到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