Merge pull request #79 from vincentarelbundock/gmailr3

`gmailr` 3.0.0 renamed functions

Author: emitanaka

NAMESPACE

@@ -118,10 +118,10 @@ importFrom(dplyr,rename)
 importFrom(dplyr,right_join)
 importFrom(dplyr,select)
 importFrom(dplyr,ungroup)
-importFrom(gmailr,create_draft)
 importFrom(gmailr,gm_auth_configure)
-importFrom(gmailr,mime)
-importFrom(gmailr,send_draft)
+importFrom(gmailr,gm_create_draft)
+importFrom(gmailr,gm_mime)
+importFrom(gmailr,gm_send_draft)
 importFrom(googlesheets4,range_write)
 importFrom(googlesheets4,read_sheet)
 importFrom(purrr,map)

R/actions.R

@@ -241,12 +241,12 @@ draft_proofing <- function(article, update=TRUE) {
 #    body <- render_template(acc, "gmail_proofing")
 #    acc_meta <- as.data(as.article(acc))
 # Note this should be from current editor's address
-#    email <- gmailr::mime(From = "dicook.rj@@gmail.com",
+#    email <- gmailr::gm_mime(From = "dicook.rj@@gmail.com",
 #                          To = acc_meta$email,
 #                          Subject = paste("R Journal article proofing",
 #                                          format(acc_meta$id)),
 #                          body = body)
-#    gmailr::create_draft(email)
+#    gmailr::gm_create_draft(email)
 #
 #
 #  }
@@ -259,12 +259,12 @@ draft_proofing <- function(article, update=TRUE) {
 
 
 #' @param drafts list of \code{gmail_draft} objects
-#' @importFrom gmailr send_draft
+#' @importFrom gmailr gm_send_draft
 #' @export
 #' @rdname proofing
 proofing_article <- function(drafts) {
   for (draft in drafts) {
-    gmailr::send_draft(draft)
+    gmailr::gm_send_draft(draft)
   }
   for (id in names(drafts)) {
     update_status(id, "out for proofing")

R/submissions.R

@@ -78,7 +78,7 @@ create_submission_directory <- function(id) {
 }
 
 as.article.gmail_message <- function(msg, ...) {
-  txt <- sub("\\[.*", "", gmailr::body(msg)[[1L]])
+  txt <- sub("\\[.*", "", gmailr::gm_body(msg)[[1L]])
   txt <- gsub("\r\n(\r\n)+", "\n", txt)
   dcf <- read.dcf(textConnection(txt))
   dcf <- setNames(dcf, tolower(colnames(dcf)))
@@ -270,16 +270,16 @@ download_submission_file <- function(url, path = get_articles_path()) {
 
 consume_submissions <- function(subs) {
   for (msgid in names(subs)) {
-    gmailr::modify_message(msgid, remove_labels = "UNREAD")
+    gmailr::gm_modify_message(msgid, remove_labels = "UNREAD")
   }
 }
 
-#' @importFrom gmailr mime create_draft
+#' @importFrom gmailr gm_mime gm_create_draft
 draft_acknowledgements <- function(subs) {
   authorize(c("read_only", "modify", "compose"))
   acknowledge_sub <- function(sub) {
     body <- render_template(sub, "gmail_acknowledge")
-    email <- gmailr::mime(
+    email <- gmailr::gm_mime(
       From = "rjournal.submission@gmail.com",
       To = sub$authors[[1L]]$email,
       Subject = paste(
@@ -288,7 +288,7 @@ draft_acknowledgements <- function(subs) {
       ),
       body = body
     )
-    gmailr::create_draft(email)
+    gmailr::gm_create_draft(email)
   }
   ans <- lapply(subs, acknowledge_sub)
   names(ans) <- vapply(subs, function(s) format(s$id),
@@ -349,11 +349,11 @@ acknowledge_revision <- function(article) {
 #' #' Send submission acknowledgement drafts
 #' #'
 #' #' @param drafts list of \code{gmail_draft} objects
-#' #' @importFrom gmailr send_draft
+#' #' @importFrom gmailr gm_send_draft
 #' #' @export
 #' draft_acknowledge_submissions <- function(drafts) {
 #'   for (draft in drafts) {
-#'     gmailr::send_draft(draft)
+#'     gmailr::gm_send_draft(draft)
 #'   }
 #'   for (id in names(drafts)) {
 #'     update_status(id, "acknowledged", replace=FALSE)