RStudio__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#"))4