README.Rmd

---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
) 
```

# Awesome R-Ladies' Blogs  
<!-- badges: start -->
[![Awesome](https://awesome.re/badge.svg)](https://awesome.re)
<!-- badges: end -->

Curated list of awesome blogs by R-Ladies, inspired by this [Tweet](https://twitter.com/WeAreRLadies/status/1362021673239785473).  

To contribute to the list, please see the [contributing](CONTRIBUTING.md) instructions


## List of blogs

Created by accessing the json files in [blogs/](blogs/)

```{r, echo = FALSE, results='asis'}
json_list <- list.files(here::here("blogs"), "json$", full.names = TRUE)
dt <- lapply(json_list, jsonlite::read_json)

invisible(
  lapply(dt, function(x){
    cat(sprintf(" - [%s](%s) by %s", 
                x$title, x$url,
                paste(sapply(x$authors, function(x) x$name), collapse=", ")),
        sep = "\n")
  })
)
```


## License

[![CC0](https://upload.wikimedia.org/wikipedia/commons/6/69/CC0_button.svg)](https://creativecommons.org/publicdomain/zero/1.0/)