我正在创建一个有光泽的应用程序,其中我需要用户输入文本摘要,但是该应用程序中出现的文本输入框的默认大小非常小。用户难以输入3-4行的摘要。您能否通过脚本使文本输入框更大来帮助我。非常感谢您的帮助!
============我尝试使用HTML标签进行以下操作:
library(shiny)
shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
tags$textarea(id="my_textarea", rows=5, "Leave a comment...")
),
mainPanel(
uiOutput("my_output")
)
)
))
但是出现了一些错误-如下所示!
我做了一个小的美学更改(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] 删除。
我来说两句