pubs.Rmd

---
title: "Publications"
output:
  html_document
---

``` {r, include = FALSE, results='asis'}
library("dplyr")
library("googlesheets")
pubs <- gs_url("https://docs.google.com/spreadsheets/d/1o1ws9sP42QBqFvFP0wQcJ5Rk6l2ILaJrmhOdioMlVpY/edit#gid=0", verbose = FALSE) %>% 
  gs_read(verbose = FALSE)
```
**ORCID ID**:
<a href="https://orcid.org/0000-0003-4671-0676" target="orcid.widget" rel="noopener noreferrer" style="vertical-align:top;"><img src="https://orcid.org/sites/default/files/images/orcid_16x16.png" style="width:1em;margin-right:.5em;" alt="ORCID iD icon">0000-0003-4671-0676</a>

---

###Published

```{r, results='asis', echo=FALSE}
published <- pubs %>%
  filter(status == "Published") %>%
  arrange(Year)

glue::glue_data(published, "{Authors} ({Year}). {Title}. *{Publication}, {Volume}*({Number}), {Pages}. <br><br>")
```


###Accepted

```{r, results='asis', echo=FALSE}
published <- pubs %>%
  filter(status == "Accepted")

glue::glue_data(published, "{Authors} ({Year}). {Title}. *{Publication}*. <br><br>")
```

###Submitted

```{r, results='asis', echo=FALSE}
published <- pubs %>%
  filter(status == "Submitted")

glue::glue_data(published, "{Authors} ({Year}). {Title}. *{Publication}*. <br><br>")
```