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宽度发生变化，但仍保留在其井板内？目前，随着窗口尺寸的改变，当井面板变小或变大时，textarea宽度似乎不会改变。因此，textarea可以突破其井板，并被相邻的井板覆盖！

textarea宽度是否可以与井板宽度相关联，以便随着井板变小或变大而变化？我不懂CSS或HTML，所以如果解决方案涉及这些，那么需要很多帮助。

谢谢！

SSB

Answer 1

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

将标记$ style（type =“text / css”，“textarea {width：100％}”）添加到第一个wellPanel中的代码中，如下所示：

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

谢谢， SSB

R Shiny tie textarea width to wellPanel width

1 个答案: