tt.R

library(googledrive)

gdoc_to_md <- function(file, path=NULL, markdown="markdown") {
  td <- tempdir()
  gf <- googledrive::drive_download(
    file, path = td,
    type = "application/epub+zip", overwrite = TRUE
  )
  if (is.null(path)) {
    path <- file.path(getwd(), paste0(gf$name, ".md"))
  }
  rmarkdown::pandoc_convert(
    input = gf$local_path,
    to = markdown,i
    from = "epub", output = path
  )
 
# Add function or pandoc filter ot to clean URLs
}

gdoc_to_md(as_id("https://docs.google.com/document/d/1mr7WLlJmsnN2C_iKT1vBVgMlYgFJZDK6dLthbJu3ofM/edit#"))