Экспортируйте RMarkdown сгенерированный PDF через Shiny - PullRequest
Новая
       7

Экспортируйте RMarkdown сгенерированный PDF через Shiny

0 голосов
/ 14 июня 2019

Как сгенерировать файл Word таким же образом, как я сгенерировал файл PDF из ShinyApp?

Я пробовал разные типы аргументов в rmarkdown: функция рендеринга, как упоминалось ниже, чтобы получить то же самое. 

mkRmd <- function(outpath, 
                  presTitle) {
  # outpath <- paste0(getwd())
  # presTitle <- "NEW_LETTER"
  #Creating a string to write out to text .Rmd file
  rmdOutput <- paste0(
    '---
    title: "',
    presTitle,
    '"
    output: 
      pdf_document: default
    ---

    ```{r setup, include=FALSE}
    knitr::opts_chunk$set(echo = FALSE,
    out.width="90%")
    ```
    '
  )

  writeLines(rmdOutput, paste0(outpath,"/",presTitle,".Rmd"))
}

    filename = "NEW_LETTER.pdf",
    content = function(file) {
      mkRmd(paste0(getwd()),"NEW_LETTER")
      rmarkdown::render(paste0(getwd(),"/NEW_LETTER.Rmd"),
                        "pdf_document",
                        output_file=file,
                        envir = new.env(parent = globalenv()))
    }
  )

Вывод похож на вывод, созданный.но я не получил загруженный файл в .html версии

...