は、コンソールに次のように私はdata.treeパッケージの出力を持っている光沢のある

Question

にUIに印刷（data.tree）の出力をレンダリング：

私は同じ出力をレンダリングしたいです光るUIの構造。

私はペースト（console.output（print（acme、 "cost"、 "p"））、collapse = "
"）をペーストしようとしましたが、出力構造は同じではありません。

ui <- fluidPage(
      sliderInput(inputId = "slider", 
      label = "My number", 
      min = 300, 
      max = 19000, 
      value = 5000), 
      htmlOutput("mytext") 
        ) 

server <- function(input, output) { 
      output$mytext <- renderText({ 
      paste(capture.output(print(acme, "cost", "p")),collapse = "<br/>") 
     }) 
     } 

shinyApp(ui = ui, server = server) 

上記のShiny UIのような出力を表示するレンダリング関数を教えてください。

Answer 1

TL：DR; renderText()をサーバーにrenderPrint()と置き換え、htmlOutput()をverbatimTextOutput()で置き換えます。

問題はどうすればrenderText()が機能するかです。 cat()と入力されたすべてのテキストを連結します。このテキストは、リストであるdata.treeオブジェクトに対して使用すると失敗します。 printステートメントの出力をキャプチャするには、renderPrint()を使用する必要があります。いいえcapture.output()が必要です。 renderPrint()はさまざまな出力方法では機能しません。最も安全なものはverbatimTextOutput()です。私は実際のドキュメンテーション研究ではなく、実験からの推薦に基づいています。 htmlOutputは機能するかもしれませんが、わかりません。お返事のための

ui <- fluidPage(
      sliderInput(inputId = "slider", 
      label = "My number", 
      min = 300, 
      max = 19000, 
      value = 5000), 
      verbatimTextOutput("mytext") 
        ) 

server <- function(input, output) { 
      output$mytext <- renderPrint({ 
      print(acme, "cost", "p")) 
     }) 
     } 

shinyApp(ui = ui, server = server)