无法以闪亮的方式呈现交互式Rmarkdown情节人物

Question

我正在尝试渲染已保存在HTML文件中的交互式绘图图（使用Rmarkdown渲染后）。我想将此交互式HTML文件包括到我的闪亮应用程序中。该应用程序无法显示绘图图（它确实作为HTML元素存在，但只是空白）。但是，当在我的浏览器中仅查看HTML文件时，它可以工作。

请参见下面的代码。

非常感谢您的帮助。

library(shiny)
library(rmarkdown)

ui <- fluidPage(uiOutput("md_file"))

# Define server logic
server <- function(input, output, session) {

  # Just a simple interactive rmd example
  exampleRMD <- "
```{r}
library(viridis)
library(plotly)
plot_ly(z = ~volcano, type = 'heatmap')
```"

  # Save and render Rmd file.
  write(exampleRMD, "file.Rmd")
  render("file.Rmd", output_format = "html_document", output_file = "knitted.html")

  # Render html output
  output$md_file <- renderUI({ 
    includeHTML("knitted.html")
  })
}

# Run the application
shinyApp(ui = ui, server = server)