Не удается отобразить интерактивную Rmarkdown сюжетную фигуру в блестящем - PullRequest
Новая
       19

Не удается отобразить интерактивную Rmarkdown сюжетную фигуру в блестящем

0 голосов
/ 15 января 2019

Я пытаюсь визуализировать интерактивный график, который уже сохранен в файле 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)
...