RでrenderText()を使って複数行のテキストを出力する shiny
2023-12-07 23:57:22
質問内容
複数行のテキストを1つの
renderText()
コマンドで出力したい。しかし、これは不可能のようです。例えば
shiny チュートリアル
でコードを切り捨てています。
server.R
:
shinyServer(
function(input, output) {
output$text1 <- renderText({paste("You have selected", input$var)
output$text2 <- renderText({paste("You have chosen a range that goes from",
input$range[1], "to", input$range[2])})
}
)
のコードと
ui.R
:
shinyUI(pageWithSidebar(
mainPanel(textOutput("text1"),
textOutput("text2"))
))
で、実質的に2行を表示します。
You have selected example
You have chosen a range that goes from example range.
2つの行を組み合わせることは可能でしょうか?
output$text1
と
output$text2
を1つのコードブロックにまとめることはできますか?これまでの私の努力は、例えば、失敗しています。
output$text = renderText({paste("You have selected ", input$var, "\n", "You have chosen a range that goes from", input$range[1], "to", input$range[2])})
どなたかお分かりになる方いらっしゃいますか?
どのように解決するのですか?
この場合
renderUI
と
htmlOutput
の代わりに
renderText
であり
textOutput
.
require(shiny)
runApp(list(ui = pageWithSidebar(
headerPanel("censusVis"),
sidebarPanel(
helpText("Create demographic maps with
information from the 2010 US Census."),
selectInput("var",
label = "Choose a variable to display",
choices = c("Percent White", "Percent Black",
"Percent Hispanic", "Percent Asian"),
selected = "Percent White"),
sliderInput("range",
label = "Range of interest:",
min = 0, max = 100, value = c(0, 100))
),
mainPanel(textOutput("text1"),
textOutput("text2"),
htmlOutput("text")
)
),
server = function(input, output) {
output$text1 <- renderText({paste("You have selected", input$var)})
output$text2 <- renderText({paste("You have chosen a range that goes from",
input$range[1], "to", input$range[2])})
output$text <- renderUI({
str1 <- paste("You have selected", input$var)
str2 <- paste("You have chosen a range that goes from",
input$range[1], "to", input$range[2])
HTML(paste(str1, str2, sep = '<br/>'))
})
}
)
)
を使用する必要があることに注意してください。
<br/>
を改行として使う必要があることに注意してください。また、表示するテキストはHTMLエスケープする必要があるので
HTML
関数を使います。
関連
-
R言語のエラーメッセージと関連する解決策
-
R - よくあるエラーとその原因 - 注意事項
-
R言語 - マトリックス
-
[解決済み] "エラーです。Rでテーマの書式を保存する際に「Don't know how to add RHS to the theme object」(テーマオブジェクトにRHSを追加する方法がわかりません)と表示されます。
-
[解決済み] Rの%*%の意味 [重複]について
-
[解決済み] Rの再現性のある優れた例題の作り方
-
[解決済み] Rの代入演算子"="と"<-"の違いは何ですか?
-
[解決済み] データフレーム内のランダムな行をサンプリングする
-
[解決済み】ggplot2で軸のタイトルやラベルの大きさを変更する。
-
[解決済み] セッションが作成されません。このバージョンのChromeDriverはChromeバージョンにしか対応していません ChromeDriver ChromeでSeleniumを使用した場合の74エラー
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
R plot.new() のエラー : 図形の余白が大きすぎる
-
ggplot2 からグリッドと背景色を削除する。
-
[解決済み] ggplot 2.0.0でのポイントサイズ
-
[解決済み] Rで複数行のコメントを持つことは可能ですか?[重複している]。
-
[解決済み] ネストされた plot_grid を同じサイズに拡大縮小するには?
-
[解決済み] Rの再現性のある優れた例題の作り方
-
[解決済み] R および RStudio のコンソールをクリアする関数
-
[解決済み] ggplot2 を使って 2 つの変数を同じグラフに線でプロットする
-
[解決済み】私のggplot2構文が賢明であるときに、R CMDチェック「no visible binding for global variable」注記を処理するにはどうすればよいですか?
-
[解決済み] 2つの単語の最初の文字を大文字にします。