我正在尝试在一个闪亮的应用程序中生成一个交互式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:
如果我运行报告,则效果很好。如果我运行该应用程序,它也可以很好地运行。但是,当我从应用程序的下载按钮调用渲染报告时,它无法正确渲染。
能给我提些建议吗?
非常感谢您。