## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = getRversion() >= "4.1"
)

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

## ----sending_messages_simple--------------------------------------------------
text_msg <- gm_mime() |>
  gm_to("james.f.hester@gmail.com") |>
  gm_from("me@somewhere.com") |>
  gm_text_body("Gmailr is a very handy package!")

## ----sending_messages_simple_print--------------------------------------------
strwrap(as.character(text_msg))

## ----sending_messages_html----------------------------------------------------
html_msg <- gm_mime() |>
  gm_to("james.f.hester@gmail.com") |>
  gm_from("me@somewhere.com") |>
  gm_html_body("<b>Gmailr</b> is a <i>very</i> handy package!")

## ----sending_messages_attachments_2-------------------------------------------
write.csv(file = "iris.csv", iris)

msg <- html_msg |>
  gm_subject("Here are some flowers") |>
  gm_attach_file("iris.csv")

## ----sending_messages_attachments_1-------------------------------------------
msg <- html_msg |>
  gm_attach_part(part = charToRaw("attach me!"), name = "please")

## -----------------------------------------------------------------------------
# First create a plot to send, and save it to mtcars.png
mtcars$gear <- as.factor(mtcars$gear)

png("mtcars.png", width = 400, height = 400, pointsize = 12)
with(
  mtcars,
  plot(hp,
    mpg,
    col = as.factor(gear),
    pch = 19,
    xlab = "Horsepower",
    ylab = "Miles / gallon"
  )
)
legend("topright",
  title = "# gears",
  pch = 19,
  col = seq_along(levels(mtcars$gear)),
  legend = levels(mtcars$gear)
)
dev.off()

# Next create an HTML email that references the plot as 'foobar'
email <- gm_mime() |>
  gm_to("someaddress@somewhere.com") |>
  gm_from("someaddress@somewhere.com") |>
  gm_subject("Cars report") |>
  gm_html_body(
    '<h1>A plot of <b>MotorTrend</b> data <i>(1974)</i></h1>
    <br><img src="cid:foobar">'
  ) |>
  gm_attach_file("mtcars.png", id = "foobar")

## ---- include = FALSE---------------------------------------------------------
unlink("mtcars.png")

## ----sending_messages_create_draft, eval=FALSE--------------------------------
#  gm_create_draft(file_attachment)

## ----sending_messages_insert_message, eval=FALSE------------------------------
#  gm_insert_message(file_attachment)

## ----sending_messages_file_attachment, eval=FALSE-----------------------------
#  gm_import_message(file_attachment)

## ----sending_messages_send_draft, eval=FALSE----------------------------------
#  my_drafts <- gm_drafts()
#  
#  gm_send_draft(gm_id(my_drafts, "draft_id")[1])

## ----sending_messages_send_message, eval=FALSE--------------------------------
#  gm_send_message(file_attachment)

## ----sending_messages_clenup, include=FALSE-----------------------------------
unlink("iris.csv")