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

Question

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

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

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

R：

plot(rnorm(10,0,1))

Answer 1

您需要采取稍微不同的方法来执行此操作。如果您render .Rmd，那么您可以使用modalDialog在renderUI中展示它。

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。您始终可以根据其他输入对.Rmd渲染步骤进行反应，然后对话框可以是动态的。