README.Rmd

---
title: "Workshops R QCBS"
output:
    md_document
---

[![Build Status](https://travis-ci.org/QCBSRworkshops/Workshops.svg?branch=dev)](https://travis-ci.org/QCBSRworkshops/Workshops)
[![License: CC BY-NC-SA 4.0](https://img.shields.io/badge/License-CC%20BY--NC--SA%204.0-lightgrey.svg)](https://creativecommons.org/licenses/by-nc-sa/4.0/)

To contribute to the QCBS R workshops, please refer to the instructions on the [Wiki page](https://github.com/QCBSRworkshops/Workshops/wiki).

Pour contribuer aux ateliers R du CSBQ, veuillez vous référez aux instructions de la [page Wiki](https://github.com/QCBSRworkshops/Workshops/wiki).

```{r workshops, echo = FALSE, results = "asis"}
linkmd <- function(x, y=x, baseurl = "https://qcbsrworkshops.github.io/Workshops/",
  after = "\n\n") {
    paste0("[", x, "]", "(", baseurl, y, ")", after)
  }
ls_wks <- yaml::yaml.load_file("workshops.yaml")
for (i in seq_along(ls_wks)) {
  if (!is.null(ls_wks[[i]]$name)) {
    cat("### ", ls_wks[[i]]$name, "\n\n")
    if (!is.null(ls_wks[[i]]$link_en))
      cat("#### ", linkmd("English", ls_wks[[i]]$link_en))
    if (!is.null(ls_wks[[i]]$link_fr))
      cat("#### ", linkmd("French", ls_wks[[i]]$link_fr))
  }
}
```


<br><br>



[![Creative Common by-nc-sa](https://mirrors.creativecommons.org/presskit/buttons/88x31/svg/by-nc-sa.eu.svg)](https://creativecommons.org/licenses/by-nc-sa/4.0/)