gmailr
In gmailr: Access the 'Gmail' 'RESTful' API

can_decrypt <- gargle::secret_has_key("GMAILR_KEY")
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  error = TRUE,
  purl = can_decrypt,
  eval = can_decrypt
)

message("No token available. Code chunks will not be evaluated.")

gmailr:::gm_auth_testing()

library(gmailr)

OAuth client

In order to use gmailr, you must provide your own OAuth client. The article Set up an OAuth client explains how to obtain an OAuth client and how to configure it for gmailr's use. The help topics for ?gm_auth_configure and ?gm_default_oauth_client will also be useful.

Unless you have reason to do otherwise, my recommendation is to place the JSON file for your OAuth client in the default location, so that it is discovered automatically. The default location is returned by rappdirs::user_data_dir("gmailr"). Alternatively, you can also make autodiscovery work by exposing the client's JSON filepath as the GMAILR_OAUTH_CLIENT environment variable. If your client is configured for auto-discovery, your gmailr code should "just work", without any explicit configuration around the client:

library(gmailr)

# your gmailr code ...

Otherwise, your code must always include a call to gm_auth_configure(), probably right after you attach gmailr:

library(gmailr)
gm_auth_configure("path/to/your/oauth_client.json")

# your gmailr code ...

Auth

Configuring an OAuth client is step 1 of 2 for getting ready to use gmailr. Step 2 is to complete the so-called "OAuth dance".

For most folks and especially in early usage, you can just allow the OAuth dance to be triggered automatically upon first need. You are taken to a web browser, where you must select or login as the Google user you want to use (authenticate yourself) and give your OAuth client permission to do Gmail stuff on your behalf (authorize). The OAuth dance does not need to be repeated in subsequent sessions, because, by default, your credentials are cached locally and can be refreshed.

If, however, you want to take more control over auth, you can call gm_auth() explicitly and proactively. The arguments that are most useful in practice are:

email: Use this to specify the target user. This can be useful if you have a cached token and you want code to run without an attempt to get interactive confirmation that it's OK to use it.
scopes: Following the principle of least privilege, if you have no intention of sending email, it could be wise to deliberately use a token with a "read only" scope.
token: In a deployed setting, it can be useful to directly provide a stored token to gmailr. This use case is documented in vignettes("deploy-a-token").

Here's how a script might begin if the OAuth client can't be auto-discovered and the user needs to request non-default behaviour from gm_auth():

library(gmailr)
gm_auth_configure("path/to/your/oauth_client.json")

gm_auth(
  "target.user@example.com",
  scopes = "gmail.readonly",
  cache = "some/nice/directory/"
)

gm_profile() is a handy function to confirm that gmailr is using the intended Google identity.

gm_profile()

Compose and send an email

Create a new email with gm_mime() and then build it up from parts, using helper functions like gm_to() and gm_subject().

test_email <-
  gm_mime() |>
  gm_to("PUT_A_VALID_EMAIL_ADDRESS_THAT_YOU_CAN_CHECK_HERE") |>
  gm_from("PUT_THE_GMAIL_ADDRESS_ASSOCIATED_WITH_YOUR_GOOGLE_ACCOUNT_HERE") |>
  gm_subject("this is just a gmailr test") |>
  gm_text_body("Can you hear me now?")

test_email <-
  gm_mime() |>
  gm_to("gargle-testuser@posit.co") |>
  gm_from("gargle-testuser@posit.co") |>
  gm_subject("this is just a gmailr test") |>
  gm_text_body("Can you hear me now?")

You can even add a file attachment with gm_attach_file():

tmp <- tempfile("mtcars-", fileext = ".csv")
write.csv(mtcars, tmp)
test_email <- gm_attach_file(test_email, tmp)

When developing a message, it's a good idea to first create a draft with gm_create_draft() Then you can visit your Gmail drafts in the browser and confirm that the message content and formatting is as you intend.

d <- gm_create_draft(test_email)

If you're happy, you can either send that draft with gm_send_draft():

gm_send_draft(d)

Or you can send the original MIME message with gm_send_message():

gm_send_message(test_email)

Read email

You can retrieve email threads with gm_threads():

my_threads <- gm_threads(num_results = 10)

You can retrieve a specific thread with gm_thread():

# retrieve the latest thread by retrieving the first ID
latest_thread <- gm_thread(gm_id(my_threads)[[1]])

The messages in latest_thread are stored as a list. You can then isolate a specific message and access its parts.

my_msg <- latest_thread$messages[[1]]

gm_date(my_msg)
gm_subject(my_msg)
gm_body(my_msg)

If a message has attachments, you can download them all locally with gm_save_attachments():

tmp2 <- tempfile("attachments-")
dir.create(tmp2)
gm_save_attachments(my_msg, path = tmp2)

# let's take a peek
tmp2 |> 
  list.files(full.names = TRUE, pattern = "[.]csv$") |> 
  read.csv() |> 
  head()

unlink(tmp)
unlink(tmp2, recursive = TRUE)

Quota

The Gmail API is free to use for modest levels of activity. To learn more about Gmail API quotas see https://developers.google.com/gmail/api/reference/quota.