# NOT RUN {
library(IMmailgun)
url <- "https://api.mailgun.net/v3/email.ignacio.website"
key="~/.ssh/id_rsa"
api_key <- secret::get_secret("mailgun", key = key,
vault = file.path(system.file(package = "IMSecrets"),
"vault/"))[[1]]
from="IMSecrets <postmaster@email.ignacio.website>"
email_client <- mailgun$new(url = url, api_key = api_key, from = from)
email_client$sendEmail(to = c("ignacio82@gmail.com", "ignacio@protonmail.com"),
subject = "Test", plaintext = "Hola!")
# }
Run the code above in your browser using DataLab