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

Question

我正在创建一个Shiny 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

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

这似乎是这个问题的重复。 多行文本输入闪亮

Answer 2

我做了一个小的美学更改（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)