Проблема создания интерактивного отчета Rmarkdown в блестящем приложении - PullRequest
Новая
       19

Проблема создания интерактивного отчета Rmarkdown в блестящем приложении

0 голосов
/ 09 апреля 2019

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

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

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

Вот блестящее приложение. 

        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:

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

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

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

...