charts.qmd

---
title: "Charts"
toc: true
toc-location: left
preview: https://github.com/jhelvy/charts/raw/master/climateChangeBarcode/plots/nasa_global_preview.png
execute: 
  echo: false
  message: false
  warning: false
---

```{r setup}
source("_common.R")

charts <- gsheet::gsheet2tbl('https://docs.google.com/spreadsheets/d/1Zj1jXqV5XsAXeIkUPzCJkvMrU5ah_y6VHb-san0Baio/edit?usp=sharing') %>% 
    mutate(
        url_repo = paste0(
            "https://github.com/jhelvy/charts/tree/master/", name),
        url_image = paste0(
            "https://raw.githubusercontent.com/jhelvy/charts/master/",
            name, "/plots/", image, ".png"),
        link = paste0('<li><a href="#', name, '">', name, '</a></li>')
    )
```

A bunch of reproducible charts. All data and source code are available on [this repo](https://github.com/jhelvy/charts).

All charts are licensed under a
[Creative Commons Attribution-ShareAlike 4.0 International License](https://creativecommons.org/licenses/by-sa/4.0/)

:::float-left

<img src="https://mirrors.creativecommons.org/presskit/buttons/88x31/png/by-sa.png" width="100px">

:::

```{r}
#| results: asis

# Download description.Rmd as temp file

td <- tempdir()
tf <- tempfile(tmpdir = td, fileext = ".Rmd")
download.file(
    'https://raw.githubusercontent.com/jhelvy/charts/master/description.Rmd',
    tf
)
for (i in 1:nrow(charts)) {
    chart <- charts[i,]
    cat(knitr::knit_child(tf,quiet = TRUE), sep = '\n')
}
```