R/googledocs.R

In mailmerge: Mail Merge Using R Markdown Documents and 'gmailr'

#' Read a markdown file from google drive
#'
#' @param id Unique Google Drive identifier, passed to [googledrive::drive_download]
#'
#' @return the imported document
#' @importFrom googledrive drive_download
#' @export
#' @return A list of character strings, containing the content of the google doc
#'
mm_read_googledoc <- function(id){
  file <- download_googledoc(id)
  readLines(file) %>% 
      paste(collapse = "\n")
}

download_googledoc <- function(id, file){
  url <- glue::glue("https://drive.google.com/open?id={id}")
  template <- NA
  if (missing(file) || is.null(file)) {
    file <- tempfile(fileext = ".txt")
  }
  googledrive::with_drive_quiet(
    googledrive::drive_download(path = file, file = url)
  )
  invisible(file)
}



#' Parse the email template inside a markdown document on google drive.
#'
#' You can use this to construct the `message` argument of [mail_merge()].
#'
#' @inheritParams mm_read_googledoc
#' @inherit mm_read_message
#'
#' 
#' @family parsing functions
#' @export
#' @return A list of character strings
#' 
#'
mm_read_message_googledoc <- function(id) {
  txt <- mm_read_googledoc(id = id)
  mm_read_message(txt = txt)
}