我可以在 R 闪亮的弹出框中显示 R markdown 文件的结果吗？

Question

是否可以让弹出框显示 R markdown 文件？我特别需要弹出框来显示 R markdown 文件的结果。我尝试了下面的方法，但是对话框不会显示随机正态变量的图。

带有 R markdown 文件的对话框的示例代码：

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
      ))
    })
  }
)

降价代码：

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

回复：

plot(rnorm(10,0,1))

Answer 1

您需要采取稍微不同的方法来做到这一点。如果您render这样做，那么您可以在using.Rmd中呈现它。modalDialogrenderUI

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
      ))

    })
})

注意：您始终可以.Rmd根据另一个输入使渲染步骤反应，然后对话框可以是动态的。