Kann ich in einer Popup-Box in R glänzend die Ergebnisse einer R-Markendatei anzeigen lassen?

Question

Kann eine Popup-Box eine R-Markendatei anzeigen? Ich benötige speziell die Popup-Box, um die Ergebnisse einer R-Markendatei anzuzeigen. Ich habe den folgenden Weg ausprobiert, aber die Dialogbox zeigt nicht das Diagramm der zufälligen Normalvariablen an.

Beispielcode für den Dialog mit der R Abschlags-Datei:

shinyApp(
    ui = basicPage(
    actionButton("show", "Show modal dialog") 
), 
    server = function(input, output) { 
    observeEvent(input$show, { 
     showModal(modalDialog(
     title = "Important message", 
     includeMarkdown("Test.Rmd"), 
     easyClose = TRUE 
    )) 
    }) 
    } 
) 

Markdown-Code:

--- 
title: "Test" 
output: html_document 
--- 

R:

Answer 1

Sie benötigen einen etwas anderen Ansatz nehmen um dies zu tun. Wenn Sie render die .Rmd dann können Sie es in der modalDialog mit renderUI präsentieren.

library(shiny) 

shinyApp(
    ui = basicPage(
    actionButton("show", "Show modal dialog") 
),  
    server = function(input, output) { 

    md_out <- rmarkdown::render("Test.Rmd") 

    observeEvent(input$show, { 

     showModal(modalDialog(
     title = "Important message", 
     renderUI(HTML(readLines(md_out))), 
     easyClose = TRUE 
    )) 

    }) 
}) 

N. B. Sie können den .Rmd Renderschritt basierend auf einer anderen Eingabe immer reaktiv machen, der Dialog könnte dann dynamisch sein.