blastula/gt reprex 20191209

email-20191209.Rmd

---
output: blastula::blastula_email 
---

```{r email_setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
report_url <- Sys.getenv("RSC_REPORT_URL")
```

## Test Email

```{r gt_output}
gt_data
```

This document is available at `r report_url`.

email-reprex-20191209.Rmd

---
title: "email-reprex-20191209"
author: "Cole Arendt"
date: "12/9/2019"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(gt)
library(blastula)
```


```{r generate}
gt_data <- iris %>%
  gt() %>%
  tab_header(
    title = md("**TEST TEST**")
  ) %>%  
  tab_spanner(
    label = "Sepal",
    columns = vars(Sepal.Length, Sepal.Width)
  ) %>%
  tab_spanner(
    label = "Petal",
    columns = vars(Petal.Length, Petal.Width)
  ) %>%
  tab_options(
    heading.background.color = "#9fa9a3",
    column_labels.background.color = "#c5d5c5",
    row_group.background.color = "#e3e0cc",
    table.background.color = "#f0f0f0"
  )
gt_data
```

```{r email}
blastula::render_connect_email('email-20191209.Rmd') %>%
blastula::attach_connect_email(
  subject = "Test Reprex"
  )
```