Скачать графики в flexdashboard - PullRequest
Новая
       7

Скачать графики в flexdashboard

0 голосов
/ 02 сентября 2018

Я пытаюсь использовать кнопку загрузки в столбце ввода гибкой панели инструментов, чтобы загрузить коллекцию диаграмм, отображаемых как * .pdf. Вся панель инструментов работает просто отлично, а кнопка загрузки отображается правильно; однако, когда я нажимаю кнопку загрузки, загружаемый файл не содержит предполагаемых диаграмм. Предупреждение, которое я получаю от моего Mac, когда он пытается открыть файл, заключается в том, что файл может быть поврежден или это форма, которую Preview (или Acrobat) не распознает. Ниже приведена сильно отредактированная форма моего кода, которая содержит проблемные разделы. Любое руководство о том, как получить диаграммы для загрузки в flexdashboard, как диаграммы загружаются в Shiny? 

---
title: "My Model"
runtime: shiny
output:
    flexdashboard::flex_dashboard:
        theme: cerulean
        vertical_layout: scroll
    orientation: rows   
---

```{r global, include=FALSE}
library(shiny)
library(shinyBS)
library(shinyWidgets)
library(flexdashboard)
library(tidyverse)
library(readxl)
library(knitr)
library(RColorBrewer)
source("MLHS_Distributions.R")
source("interp.R")
source("tooltips.R")
```

```{r Inputs}
downloadButton("downlaodReport","Price Comparision Report")

downloadHandler(filename = function() {
     filename = paste0("ModelReport-", Sys.Date(), ".pdf")
   },
     content = function(file) {
         pdf(file, width = 8.5, height = 6.14)
         renderPrint({output$gg.prob.win.price()})
         dev.off()
   }
)
```

```{r priceProbWinChart}
renderPlot({
gg.prob.win.price <- --ggplot code--

plot(gg.prob.win.price)
})
```
...