如何在 R Shiny 中添加更大的文本输入框？

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。前者可以设置高度和宽度，如果行太长它会自动换行。

这似乎是这个问题的重复；

如何在 R Shiny 中添加更大的文本输入框？

How to add bigger textInput box in R Shiny?

r

shiny

shiny-server