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

麦申神父

我正在创建一个有光泽的应用程序,其中我需要用户输入文本摘要,但是该应用程序中出现的文本输入框的默认大小非常小。用户难以输入3-4行的摘要。您能否通过脚本使文本输入框更大来帮助我。非常感谢您的帮助!

我的应用程序快照

============我尝试使用HTML标签进行以下操作:

library(shiny)

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

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

爱德华多·伯格(Eduardo Bergel)

我做了一个小的美学更改(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)

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章