私はShiny Appを作成しています。ここでは、ユーザーはテキストサマリを入力する必要がありますが、アプリケーションに表示されるテキスト入力ボックスのデフォルトサイズは非常に小さいです。ユーザーが3-4行の要約を入力するのは難しい。テキスト入力ボックスを大きくできるスクリプトを教えてください。本当にあなたの助けに感謝します！Rの大きなtextInputボックスを追加する方法Shiny？
=========== 私は、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...", value="")
)
,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 ）; shiny :: tags $ textarea（id = "my_textarea"、行= 5、プレースホルダ= "コメントを残す..."、値= ""） 、mainPanel（h4 （ 'My panel'）） ） ）） ' –
textAreaInput代わりのtextInputを使用してみてください。前者では高さと幅を設定することができ、線が長すぎると自動的に次の行に折り返します。
これはこの質問と重複しているようです。 Multi line text inputs in shiny
私はShiny Appで次のエラーが発生するたびに試しています。 ）） "...コメントを残す"、 shinyUI（fluidPage（ sidebarLayout（ sidebarPanel（ タグ$のテキストエリア（ID = "my_textarea"、行= 5： "ERROR $演算子は、原子のベクトルは無効です" 、 mainPanel（ uiOutput（ "my_output"） ） ） ）） –
これはそのままの状態で動作します。表示されている '$ $ 'は' tags $ textarea'です。これはshinyを読み込んでいて（ 'tags'という別の変数を定義していない場合）存在するはずです。 – alistaire