googledrive_publish_doc.R

# インストール
devtools::install_github("tidyverse/googledrive")

# 認証
drive_auth()

tmp_doc <- tempfile(fileext = ".doc")

# word_documentなRmdをrender()
rmarkdown::render("~/Rmd/test.Rmd", output_file = tmp_doc)

# type に「document」「spreadsheet」とかを指定すると変換してくれる
tmp_gdoc <- drive_upload(tmp_doc, type = "document")

# 変換したやつはpublishできる
drive_publish(tmp_gdoc$name)

# ファイルのURL
f[1,]$files_resource[[1]]$webViewLink