R Shiny 将 textarea 宽度绑定到 wellPanel 宽度答案

【问题标题】：R Shiny tie textarea width to wellPanel widthR Shiny 将 textarea 宽度绑定到 wellPanel 宽度
【发布时间】：2015-12-14 22:41:10
【问题描述】：

我正在学习如何使用 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，并被相邻的wellPanel覆盖！

是否可以将 textarea 的宽度绑定到 wellPanel 的宽度，以便它随着 Well Panel 变小或变大而变化？我不熟悉 CSS 或 HTML，所以如果解决方案涉及这些，我需要很多帮助。

谢谢！

单边带

【问题讨论】：

标签： css r width textarea shiny

【解决方案1】：

我很偶然地发现了这一点，它似乎有效：

在第一个wellPanel的代码中添加tags$style(type="text/css", "textarea {width:100%}"),，如下：

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

谢谢，单边带

【讨论】：