# Creo la clau d'enviament de correus (i en windows) una vegada només
create_smtp_creds_key(
  id="foo_ceb",
  user = "foo@gencat.cat",
  provider = "office365",
  overwrite = FALSE
)
# The system key store has been updated with the "blastula-v1-foo_ceb" key with the `id` value "foo_ceb".
# * Use the `view_credential_keys()` function to see all available keys
# * You can use this key within `smtp_send()` with `credentials = creds_key("foo_ceb")`

xxxxxxxxxx

# Creo la clau d'enviament de correus (i en windows) una vegada només

create_smtp_creds_key(

  id="foo_ceb",

  user = "foo@gencat.cat",

  provider = "office365",

  overwrite = FALSE

)

# The system key store has been updated with the "blastula-v1-foo_ceb" key with the `id` value "foo_ceb".

# * Use the `view_credential_keys()` function to see all available keys

# * You can use this key within `smtp_send()` with `credentials = creds_key("foo_ceb")`

p <- ggplot(mtcars, aes(x=wt, y=mpg, color=cyl, size=cyl)) +
      geom_point() +
      theme(legend.position="none")

p1 <- ggExtra::ggMarginal(p, type="histogram")

my_ggplot <- blastula::add_ggplot( p1 , width=5)

p <- ggplot(mtcars, aes(x=wt, y=mpg, color=cyl, size=cyl)) +

      geom_point() +

      theme(legend.position="none")

​

p1 <- ggExtra::ggMarginal(p, type="histogram")

​

my_ggplot <- blastula::add_ggplot( p1 , width=5)

my_image <- blastula::add_image(file = system.file("img", "Rlogo.png", package="png"), width = 200)

xxxxxxxxxx

my_image <- blastula::add_image(file = system.file("img", "Rlogo.png", package="png"), width = 200)

my_table_gt <- starwars %>% head() %>% gt() %>%   
  data_color(
    columns = birth_year,
    colors = scales::col_numeric(palette = "Blues", domain = range(0,800))
  ) %>% as_raw_html()

xxxxxxxxxx

my_table_gt <- starwars %>% head() %>% gt() %>%   

  data_color(

    columns = birth_year,

    colors = scales::col_numeric(palette = "Blues", domain = range(0,800))

  ) %>% as_raw_html()

correu_alerta1 <- blastula::compose_email(
    body = md(glue::glue(
"Benvolgut/da, acció requerida!:

Gràfic:
{my_ggplot}
Imatge:
{my_image}
Taula heatmap:
{my_table_gt}
")),
    footer = md(glue::glue("Correu enviat el {Sys.time()}."))
  )

xxxxxxxxxx

correu_alerta1 <- blastula::compose_email(

    body = md(glue::glue(

"Benvolgut/da, acció requerida!:

​

Gràfic:

{my_ggplot}

Imatge:

{my_image}

Taula heatmap:

{my_table_gt}

")),

    footer = md(glue::glue("Correu enviat el {Sys.time()}."))

  )

correu_alerta2 <- blastula::render_email(input = "Plantilla 2.Rmd")

xxxxxxxxxx

correu_alerta2 <- blastula::render_email(input = "Plantilla 2.Rmd")

correu_alerta1 <- correu_alerta1 %>%
  add_attachment(file = system.file('img', 'pexels-photo-267151.jpeg',package='blastula') ) %>% # Imatge via adjunt
  add_attachment(file = system.file('examples', 'austin_home_sales.csv',package='blastula') ) %>% # CSV
  add_attachment(file = system.file('doc', 'DT.html',package='DT') ) %>%# html autocontingut
  add_attachment(file = system.file('legacy', 'examples', 'choropleth', 'Rplots.pdf',package='leaflet') ) # pdf

xxxxxxxxxx

correu_alerta1 <- correu_alerta1 %>%

  add_attachment(file = system.file('img', 'pexels-photo-267151.jpeg',package='blastula') ) %>% # Imatge via adjunt

  add_attachment(file = system.file('examples', 'austin_home_sales.csv',package='blastula') ) %>% # CSV

  add_attachment(file = system.file('doc', 'DT.html',package='DT') ) %>%# html autocontingut

  add_attachment(file = system.file('legacy', 'examples', 'choropleth', 'Rplots.pdf',package='leaflet') ) # pdf

# L'adreça "from" ha de ser real i existir al correu de gencat.cat, i ha de coincidir amb l'usuari que ha creat el seu "creds_key()" amb les seves credencials 
correu_alerta1 |>
  blastula::smtp_send(
    to = "direccio@lameva.aapp.cat",
    cc = "jo@lameva.aapp.cat",
    from = "automatitzacions@lameva.aapp.cat",
    subject = "Reviseu Canvis - Informe setmanal",
    credentials = creds_key("foo_ceb")
    )

xxxxxxxxxx

# L'adreça "from" ha de ser real i existir al correu de gencat.cat, i ha de coincidir amb l'usuari que ha creat el seu "creds_key()" amb les seves credencials 

correu_alerta1 |>

  blastula::smtp_send(

    to = "direccio@lameva.aapp.cat",

    cc = "jo@lameva.aapp.cat",

    from = "automatitzacions@lameva.aapp.cat",

    subject = "Reviseu Canvis - Informe setmanal",

    credentials = creds_key("foo_ceb")

    )