Блог

Я пытаюсь создать интерактивный отчет Rmarkdown в приложении shiny, и у меня возникли некоторые проблемы с визуализацией виджетов shiny. Проблема в том, что виджеты не отображаются при вызове отчета. Показано все остальное, но не элементы shiny.

Моя проблема возникает, когда файл Rmakdown содержит блестящие элементы. У меня есть приложение shiny, которое содержит кнопку, вызывающую рендеринг файла Rmakdown, но это файл, содержащий блестящие виджеты, поэтому на выходе получается файл Rmakdown, который отлично отрисован, но без появления блестящих элементов.

Есть простая версия того, что я пытаюсь решить.

Вот приложение shiny.

         ui <- fluidPage(
      column(2,
             fluidRow(h4("PD")),
             fluidRow(hr()),
             plotOutput("pd_value")),
      column(2,
             downloadButton("report", "Download File"))

    )

    shinyServer(function(input, output)
{

  #Grafico PD
  output$pd_value = renderPlot({
    plot(rnorm(100), rnorm(100))
  })

  output$report <- downloadHandler(
    filename = "report.html",
    #filename = "report.pdf",
    content = function(file) {

      tempReport <- file.path(tempdir(), "report.Rmd")
      file.copy("report.Rmd", tempReport, overwrite = TRUE)

      params <- list(PD = c(1000,5))
      print(params)

      rmarkdown::render(tempReport, output_file = file)
    }
  )


})
  

И вот отчет Rmarkdown.

 ---
title: "Dynamic report"
runtime: shiny
output: html_document
---
### Client recap.
After load the data, the user can get a recap of the most useful information for the client at a glance.

```{r}
shinyApp(
  ui <- fluidPage(
    column(2,
         fluidRow(h4("PD")),
         fluidRow(hr()),
         plotOutput("pd_value"))
  ), 

  server = function(input, output) {
#Grafico PD
  output$pd_value = renderPlot({
    plot(rnorm(100), rnorm(100))
  })
  },

  options = list(height = 300)
)

```
### Client recap.
After load the data, the user can get a recap of the most useful information for the client at a glance. In this box the user gets the following:
  

Если я запускаю отчет, он работает хорошо. Если я запускаю приложение, оно тоже работает хорошо. Но когда я вызываю отчет о рендеринге с помощью кнопки загрузки приложения, он отображается некорректно.

Не могли бы вы дать мне какие-либо предложения?

Большое вам спасибо.