闪亮的多行文本输入
Multi line text inputs in shiny
在 shiny 中实现具有多个 lines/line 中断的文本输入(显式或软包装以获得更好的输出 UI)我有什么选择?
我想实现一个具有 description/details 字段的应用程序,并且输入的内容很可能不止一行。
基本上,我正在寻找一些东西来实现 Whosebug 的文本输入框的类似功能我正在写这个问题:换行符,滚动条 and/or(自动)调整身高。
例子
# 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)
尝试使用 textAreaInput
而不是 textInput
。
前者可以设置高度和宽度,如果行太长它会自动换行。
Here 是文档中提到的地方。
在 shiny 中实现具有多个 lines/line 中断的文本输入(显式或软包装以获得更好的输出 UI)我有什么选择?
我想实现一个具有 description/details 字段的应用程序,并且输入的内容很可能不止一行。
基本上,我正在寻找一些东西来实现 Whosebug 的文本输入框的类似功能我正在写这个问题:换行符,滚动条 and/or(自动)调整身高。
例子
# 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)
尝试使用 textAreaInput
而不是 textInput
。
前者可以设置高度和宽度,如果行太长它会自动换行。
Here 是文档中提到的地方。