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

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

## ----eval = !can_decrypt, echo = FALSE, comment = NA--------------------------
#  message("No token available. Code chunks will not be evaluated.")

## ----auth, include = FALSE----------------------------------------------------
gmailr:::gm_auth_testing()

## ----setup, message = FALSE---------------------------------------------------
library(gmailr)

## ----eval = FALSE-------------------------------------------------------------
#  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()

## ----eval = FALSE-------------------------------------------------------------
#  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?")

## ----include = FALSE----------------------------------------------------------
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?")

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

## -----------------------------------------------------------------------------
d <- gm_create_draft(test_email)

## -----------------------------------------------------------------------------
gm_send_draft(d)

## ----eval = FALSE-------------------------------------------------------------
#  gm_send_message(test_email)

## -----------------------------------------------------------------------------
my_threads <- gm_threads(num_results = 10)

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

## -----------------------------------------------------------------------------
my_msg <- latest_thread$messages[[1]]

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

## -----------------------------------------------------------------------------
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()

## ----include = FALSE----------------------------------------------------------
unlink(tmp)
unlink(tmp2, recursive = TRUE)