OAuth authentication is managed through the gargle package. Users must provide their own OAuth client via`gm_auth_configure()`. Authentication state is maintained across sessions. See`R/gm_auth.R` for implementation details.

**HTTP Requests**

All Gmail API calls go through httr. Request and response handling follows gargle conventions. The most recent API response is available via`gm_last_response()` for debugging.

All Gmail API calls go through httr. Request and response handling follows gargle conventions. The most recent API response is available via`gargle::gargle_last_response()` for debugging.

**MIME Message Construction**

Email messages are built using MIME (Multipurpose Internet Mail Extensions) format. The`gm_mime()` function creates a base MIME object, which is then populated using builder functions like`gm_to()`,`gm_subject()`, and`gm_text_body()`. See`R/gm_mime.R` for the implementation.

base64enc,

cli,

crayon,

gargle (>= 1.5.1),

gargle (>= 1.6.0.9000),

glue,

httr,

jsonlite,

Encoding: UTF-8

Roxygen: list(markdown = TRUE)

RoxygenNote: 7.3.3

Remotes:

r-lib/gargle

* All HTTP responses are passed through`gargle::response_process()`, which updates gmailr's error handling to be consistent with other packages that use gargle for HTTP requests. Users might notice that errors are more verbose (and hopefully more informative). Also the class vector has changed:

- Previously:`c("condition", "error", "gmail_error")`

- Now:`c("gmailr_error", "gargle_error_request_failed", "http_error_{XXX}", "gargle_error", "rlang_error", "error", "condition")`

* Functions that lack the`gm_` prefix have been removed, concluding a deprecation process that kicked off with gmailr 1.0.0 (released 2019-08-23). These functions were hard deprecated in gmailr 2.0.0 (released 2023-06-30). This eliminates many name conflicts with other packages (including the base package).

* Legacy auth functions`clear_token()`,`gmail_auth()`, and`use_secret_file()` have been removed, following the same deprecation timeline as described above.

*`gm_last_response()` is deprecated, in favor of`gargle::gargle_last_response()`, since gmailr no longer caches the last response itself.

* Fixed MIME structure for emails with text+HTML bodies and attachments. These messages now correctly use nested`multipart/mixed` (outer) containing`multipart/alternative` (text/HTML), preventing the loss of some of the message parts (#202).

* Fixed MIME structure for emails with text+HTML bodies and attachments. These messages now correctly use nested`multipart/mixed` (outer) containing`multipart/alternative` (innertext/HTML), preventing the loss of some of the message parts (#202).

the<- new.env(parent= emptyenv())

.onLoad<-function(libname,pkgname) {

.auth<<-gargle::init_AuthState(

package="gmailr",

)

}

the$last_response<-list()

gmailr_query<-function(

fun,

location,

user_id,

class=NULL,

...,

upload=FALSE,

call= caller_env()

) {

path_fun<-if (upload)gmail_upload_pathelsegmail_path

response<- fun(path_fun(user_id,location), gm_token(),...)

result<- content(response,"parsed")

if (status_code(response)>=300) {

cond<- structure(

list(

call= sys.call(-1),

content=result,

response=response,

message= paste0(

"Gmail API error:",

status_code(response),

"\n",

result$error$message,

)

),

class= c("condition","error","gmailr_error")

)

stop(cond)

}

result<-gargle::response_process(

response,

remember=TRUE,

call=call,

)

if (!is.null(class)&&!is.null(result)) {

class(result)<-class

gm_last_response<-function() {

lifecycle::deprecate_warn(

"3.0.0",

"gm_last_response()",

)

gargle::gargle_last_response()

}

gmailr_GET<-function(location,user_id,class=NULL,...) {

gmailr_query(GET,location,user_id,class,...)

gmailr_GET<-function(

location,

user_id,

class=NULL,

...,

call= caller_env()

) {

gmailr_query(GET,location,user_id,class,...,call=call)

}

gmailr_DELETE<-function(location,user_id,class=NULL,...) {

gmailr_query(DELETE,location,user_id,class,...)

gmailr_DELETE<-function(

location,

user_id,

class=NULL,

...,

call= caller_env()

) {

gmailr_query(DELETE,location,user_id,class,...,call=call)

}

gmailr_PATCH<-function(location,user_id,class=NULL,...) {

gmailr_query(PATCH,location,user_id,class,...)

gmailr_PATCH<-function(

location,

user_id,

class=NULL,

...,

call= caller_env()

) {

gmailr_query(PATCH,location,user_id,class,...,call=call)

}

gmailr_POST<-function(location,user_id,class=NULL,...) {

gmailr_query(POST,location,user_id,class,...)

gmailr_POST<-function(

location,

user_id,

class=NULL,

...,

call= caller_env()

) {

gmailr_query(POST,location,user_id,class,...,call=call)

}

gmailr_PUT<-function(location,user_id,class=NULL,...) {

gmailr_query(PUT,location,user_id,class,...)

gmailr_PUT<-function(

location,

user_id,

class=NULL,

...,

call= caller_env()

) {

gmailr_query(PUT,location,user_id,class,...,call=call)

}

contents:

-gm_history

-gm_last_response

-quoted_printable_encode

-gm_last_response