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

【问题标题】：How to add bigger textInput box in R Shiny?如何在 R Shiny 中添加更大的文本输入框？
【发布时间】：2016-08-20 23:27:16
【问题描述】：

我正在创建一个闪亮的应用程序，其中一部分我需要用户输入文本摘要，但应用程序中出现的文本输入框的默认大小非常小。用户很难输入 3-4 行的摘要。你能帮我写一个能让文本输入框变大的脚本吗？非常感谢您的帮助！

============ 我刚刚用 HTML 标签尝试了以下内容：

library(shiny)

shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      tags$textarea(id="my_textarea", rows=5, "Leave a comment...")
    ),
    mainPanel(
      uiOutput("my_output")
    )
  )
))

但出现了一些错误 - 如下所示！

【问题讨论】：

我正在尝试以下操作，但每次在我的 Shiny App 中都会出现以下错误。 “错误：$ 运算符对原子向量无效” shinyUI(fluidPage(sidebarLayout(sidebarPanel( tags$textarea(id="my_textarea", rows=5, "Leave a comment...")), mainPanel( uiOutput("my_output ") ) ) ))
它按原样对我有用。显示的唯一$ 是tags$textarea，如果您已加载闪亮（并且尚未定义另一个名为tags 的变量），它应该存在。

标签： r shiny shiny-server

【解决方案1】：

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

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

【讨论】：

【解决方案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)

【讨论】：

非常感谢@Ron Talbot ...添加“shiny::tags”后它起作用了
shinyUI(fluidPage( sidebarLayout( sidebarPanel( shiny::tags$style(type="text/css", "textarea {width:100%}") , shiny::tags$textarea(id="my_textarea", rows=5,placeholder = "Leave a comment...", value="") ) ,mainPanel( h4('My panel') ) ) ))
必须删除要显示的文本的“值”参数，...无论如何都是好答案！