00a_welcome.Rmd

# Welcome {#welcome-slides}

```{r, echo=FALSE}

slide_page <- function(slidedeck_name = "03_filenaming.html", site = "https://annakrystalli.me/rrresearchACCE20"){
    
    url <- glue::glue("{site}/slides/{slidedeck_name}")   
    cat(paste0("[",icons::fontawesome('eye'), " View Slides](", url, "){target='blank'} <br><br>"))
    
    knitr::include_url(glue::glue("slides/{slidedeck_name}"))
}
```

```{r, results="asis", echo = FALSE}
slide_page(slidedeck_name = "01_intro.html")
```