小编Ann*_*Ann的帖子

是否可以让弹出框显示 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))