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

Question

我正在创建一个闪亮的应用程序，在其中一个部分，我需要用户输入一个文本摘要，但是应用程序中出现的文本输入框的默认大小非常小。用户很难输入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

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

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