Question

我创建了一个相当长而复杂的闪亮应用程序，它根据各种用户输入生成表格和图表。我想创建一个下载报告＆＃39;按钮，它将显示应用程序当前可见的图表和图表。

但是，我似乎无法生成有效的报告。我使用了一个包含我的问题的示例闪亮应用程序，希望有一个简单的解决方案。当我点击下载报告＆＃39;时，它会要求我选择保存位置并生成一个名为“报告”的报告。但是，它不是HTML格式。它实际上没有任何格式，所以我无法打开它并查看结果

闪亮的应用程序：

#install.packages("shiny")
library(shiny)
library(ggplot2)

ui <- fluidPage(
  title = 'Example application',
  sidebarLayout(
    sidebarPanel(
      helpText(),
      selectInput('x', 'Build a regression model of mpg against:',
                  choices = names(mtcars)[-1]),
      radioButtons('format', 'Document format', c('PDF', 'HTML', 'Word'),
                   inline = TRUE),
      downloadButton('downloadReport')
    ),
    mainPanel(
      plotOutput('regPlot')
    )
  )
)


server <- function(input, output) {

  chart1 <- reactive({
    ggplot(data = mtcars, aes(x=input$x, y=mpg))+geom_point()
  })

  output$regPlot <- renderPlot({
    chart1()
  })

  output$downloadReport <- downloadHandler(
    filename = function() {
      paste('my-report', sep = '.', switch(
        input$format, PDF = 'pdf', HTML = 'html', Word = 'docx'
      ))
    },

    content = function(file) {
      src <- normalizePath('report.Rmd')

      owd <- setwd(tempdir())
      on.exit(setwd(owd))
      file.copy(src, 'report.Rmd', overwrite = TRUE)

      library(rmarkdown)
      out <- render('report.Rmd', switch(
        input$format,
        PDF = pdf_document(), HTML = html_document(), Word = word_document()
      ))
      file.rename(out, file)
    }
  )

}

shinyApp(ui=ui, server=server)

R Markdown文件：

---
title: "Download report"
author: "Test"
date: "24 October 2017"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
library(shiny)
library(rmarkdown)
```


## Output plot

Should output plot, here:

```{r test plot, echo=FALSE}
chart1()
```

我必须在这里找不到简单的东西！

Answer 1

解决方案非常简单，但也可以帮助其他人。

我的Shiny应用程序中的默认设置是“在窗口中运行”＆＃39;使用时但是，只需将其更改为“运行外部”＆＃39;允许我根据需要下载报告。

希望这有助于某人！

无法从Shiny app

1 个答案: