如何使用 R 在 Sharepoint 中下载 Word 文件的历史记录

Question

我想下载位于 SharePoint Online 中的 Word 文件的历史记录。你有什么建议的方法吗？

Answer 1

我已经能够使用以下 R 代码下载位于 SharePoint Online 中的 Word 文件的历史记录。该文件有 50 个版本。

library(RDCOMClient)
library(openxlsx)

versions <- 1 : 50
nb_Version <- length(versions)
dir_To_Save_File <- "C:\\Downloads\\"
list_Info <- list()

for(i in 1 : nb_Version)
{ 
  print(i)
  url <- paste0("https://XXXX.sharepoint.com/.../.../_vti_history/", i, "/.../my_Word_File.docx")
  doc <- wordApp[["Documents"]]$Open(url)
  date <- openxlsx::convertToDateTime(doc$BuiltinDocumentProperties("Last Save Time")$Value())
  date <- stringr::str_replace_all(date, ":|-", "_")
  author <- doc$BuiltinDocumentProperties("Last Author")$Value()
  list_Info[[i]] <- list(author = author, date, url = url)
  path_Save_File <- paste0(dir_To_Save_File, "Version_", i, "_Author_", author, "_Date_", date, "_my_Word_File.docx")
  doc$SaveAs(path_Save_File)
}

通过上面的代码，我已经能够下载特定Word文件的50个版本。