Shiny-Ausgabe und R MarkDown render_site()

Question

Ich habe ein Problem bezüglich der Verwendung von Shiny-Ausgaben in einem R MarkDown-Dokument beim Versuch, eine zweiseitige Website mithilfe von render_site() (rmarkdown-Paket)

zu exportieren

Hier ist das Stück Code, das mein Problem erstellen (innerhalb eines knitr oder eines der Dokumente .Rmd befindet):

uiOutput("main") 

output$main <- renderUI({ 
    if(test$n != 0){ 
    plotOutput("mainPlot", height = test$n*length(input$yAxes)*400) 
    } 
}) 

output$mainPlot <- renderPlot({do.call("grid.arrange", c(test$plots, ncol = 1))}) 

Bei der Verarbeitung render_site() sagt mir, dass das Objekt „Ausgang“ nicht definiert ist . Das Ausführen der .Rmd-Datei allein funktioniert einwandfrei; Das Problem tritt nur auf, wenn Sie versuchen, es als Website einzubinden. Schließlich wird die Website erfolgreich erstellt, wenn ich die Zeilen oben entferne.

Werden Ausgaben $ foo nicht von R MarkDown unterstützt oder fehle ich etwas dumm?

Vielen Dank im Voraus,

Grüße, Paul

---

PS: ich, bevor er fragt offensichtlich gesucht, ich habe versucht, dies jetzt für Stunden, um herauszufinden, ._.

Answer 1

Haben Sie versucht, den ausgabeerzeugenden Code in eine Funktion zu setzen?

server <- function (input, output) { 
    output$main <- renderUI({ 
    if(test$n != 0){ 
    plotOutput("mainPlot", height = test$n*length(input$yAxes)*400) 
    } 
    }) 

    output$mainPlot <- renderPlot({do.call("grid.arrange", c(test$plots, ncol = 1))}) 
}