如何在R Shiny中添加更大的textInput框？

Question

我正在创建一个Shiny App，其中一部分我需要用户输入文本摘要，但App中出现的文本输入框的默认大小非常小。用户难以输入3-4行的摘要。你能帮助我使用可以使文本输入框更大的脚本吗？真的很感谢你的帮助！

=========== 我刚刚使用HTML标记尝试了以下内容：

library(shiny)

shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      tags$textarea(id="my_textarea", rows=5, "Leave a comment...")
    ),
    mainPanel(
      uiOutput("my_output")
    )
  )
))

但有一些错误 - 如下所示！

Answer 1

我做了一个小的美学变化（css到100％），但它确实有效。错误可能来自代码的其他部分。请参阅下面的示例。

library(shiny)

ui<-shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel( 
           tags$style(type="text/css", "textarea {width:100%}") ,
           tags$textarea(id="my_textarea", rows=5,placeholder =  "Leave a comment...", "") 
    ) 
    ,mainPanel( h4('My panel') )
  )
))

server <- shinyServer(function(input, output) {}) 

shinyApp(ui, server)

Answer 2

尝试使用passwd代替textAreaInput。使用前者，您可以设置高度和宽度，如果行太长，它将自动换行到下一行。

这似乎是这个问题的重复; Multi line text inputs in shiny