r - Shiny 的多行文本输入

Question

我有哪些选项可以在 Shiny 的情况下实现具有多行/换行符的文本输入(显式或只是软换行以获得更好的 UI 输出)？

我想实现一个具有描述/详细信息字段的应用程序，并且输入的内容很可能不仅仅是一行。

基本上，我正在寻找一些东西来实现stackoverflow的非常文本输入框的类似功能，我正在写这个问题:换行符，滚动条和/或(自动)调整高度。

示例

# UI ---------------------------------------------------------------------

ui <- fluidPage(
  p(),
  textInput("title", "Title"),
  textInput("description", "Description"),
  tags$hr(),
  h3("Database state"),
  DT::dataTableOutput("datatable")
)

# Server ------------------------------------------------------------------

server <- function(input, output, session) {
  output$datatable <- DT::renderDataTable(
    data.frame(
      Title = input$title,
      Description = input$description,
      stringsAsFactors = FALSE
    )
  )
}

shinyApp(ui, server)

Answer 1

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

Here是文档中提到的地方。