如何使用r markdown以闪亮的格式打印报告？

Question

我需要使用r markdown从闪亮的应用程序中打印报告。 我一直在尝试遵循这些示例，但是许多小时后，我需要一些帮助。

有4个文件：app.R，report.Rmd，calculations.R和datos.xlsx datos.xlsx是一个excel文件，其中包含由Calculations.R中定义的函数使用并由app.R使用的信息。

app.R有望在屏幕上提供结果并提供可下载的报告。 我没有后者，我在最近两天一直在为此苦苦挣扎。

非常感谢你！

应用程式R：

ui <- fluidPage(

    titlePanel("Calculations"),
    sidebarLayout(
      sidebarPanel(
        fileInput("file1","Select excel file with data", accept=c("excel",".xlsx",".xls")),

        "When are available on the screen, you can download the report",
        radioButtons('format', 'Document format', c('PDF', 'HTML', 'Word'),
                     inline = TRUE),
        downloadButton('downloadReport')
        ),

    mainPanel(
      tableOutput(outputId = "tabla")
      )
    ))


server <- function(input, output) {

  source("./calculations.R")

  output$tabla<-renderTable({
    infile<-input$file1
    if(is.null(infile))return(NULL)
    calculo(infile$datapath)})


  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')

      # temporarily switch to the temp dir, in case you do not have write
      # permission to the current working directory
      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)
    }
  )

}

# Run the application 
shinyApp(ui = ui, server = server)

report.Rmd：

---

标题：“动态报告”输出：word_document

---

knitr::opts_chunk$set(echo = FALSE,warning=FALSE,message = FALSE)

结果

print(output$tabla)

计算值

library(xlsx)
calculo<-function(archivo){
  incrementos_descuentos<-read.xlsx(archivo,sheetName="incrementos - descuentos",  check.names = FALSE)  
  incrementos_descuentos$`Desde / mm`<-as.numeric(as.character(incrementos_descuentos$`Desde / mm`))
  incrementos_descuentos$`A  / mm`<-as.numeric(as.character(incrementos_descuentos$`A  / mm`))
  incrementos_descuentos$`Volumen / L`<-as.numeric(as.character(incrementos_descuentos$`Volumen / L`))
  incrementos_descuentos$`Resultado L/m`<-as.numeric(as.character(incrementos_descuentos$`Resultado L/m`))
  incrementos_descuentos$`Resultado L/m`<-incrementos_descuentos$`Volumen / L`/(incrementos_descuentos$`A  / mm`-incrementos_descuentos$`Desde / mm`)
Resutado<-incrementos_descuentos
Resutado
}

Answer 1

似乎经过很多天，我找到了解决方案。

我在app.R中添加了一个反应对象：

informe <- reactive({
    infile<-input$file1
    if(is.null(infile))return(NULL)
    calculo(infile$datapath)
  })

我从report.Rmd调用它为notifye（）