From 45451ba3661ed56e2eb86711f9411b3fdc562175 Mon Sep 17 00:00:00 2001
From: nfrerebeau <nicolas.frerebeau@u-bordeaux-montaigne.fr>
Date: Wed, 11 Sep 2024 15:54:21 +0200
Subject: [PATCH] Add CRAN status badges

---
 _quarto.yml      |  2 ++
 contributing.qmd | 41 ++++++++++++++++++++++++-----------------
 2 files changed, 26 insertions(+), 17 deletions(-)

diff --git a/_quarto.yml b/_quarto.yml
index 5ab593b..bf92049 100644
--- a/_quarto.yml
+++ b/_quarto.yml
@@ -67,5 +67,7 @@ format:
       - default
       - custom.scss
 
+default-image-extension: ""
+
 # Enable banner style title blocks
 title-block-banner: true
diff --git a/contributing.qmd b/contributing.qmd
index e014b47..eb5d3f0 100644
--- a/contributing.qmd
+++ b/contributing.qmd
@@ -8,23 +8,30 @@ description: |
 
 You can request new features by opening an issue on GitHub. Even if you don't feel up to coding this new feature, feel free to engage or participate in discussions in each package repository (@tbl-repo).
 
-| Package    | Repository                                                    |
-|:-----------|:--------------------------------------------------------------|
-| aion       | [tesselle/aion](https://github.com/tesselle/aion)             |
-| alkahest   | [tesselle/alkahest](https://github.com/tesselle/alkahest)     |
-| ananke     | [tesselle/ananke](https://github.com/tesselle/ananke)         |
-| arkhe      | [tesselle/arkhe](https://github.com/tesselle/arkhe)           |
-| dimensio   | [tesselle/dimensio](https://github.com/tesselle/dimensio)     |
-| folio      | [tesselle/folio](https://github.com/tesselle/folio)           |
-| isopleuros | [tesselle/isopleuros](https://github.com/tesselle/isopleuros) |
-| kairos     | [tesselle/kairos](https://github.com/tesselle/kairos)         |
-| khroma     | [tesselle/khroma](https://github.com/tesselle/khroma)         |
-| kinesis    | [tesselle/kinesis](https://github.com/tesselle/kinesis)       |
-| nexus      | [tesselle/nexus](https://github.com/tesselle/nexus)           |
-| tabula     | [tesselle/tabula](https://github.com/tesselle/tabula)         |
-| tesselle   | [tesselle/tesselle](https://github.com/tesselle/tesselle)     |
-
-: Code repositories of the **tesselle** packages. {#tbl-repo}
+```{r}
+#| label: tbl-repo
+#| tbl-cap: Code repositories of the **tesselle** packages.
+#| results: asis
+#| echo: false
+pkg <- c("aion", "alkahest", "arkhe", "dimensio", "folio", 
+         "isopleuros", "kairos", "khroma", "nexus", "tabula",
+         "tesselle") # ananke, kinesis
+
+badge_cran <- sprintf("https://cran.r-project.org/package=%s", pkg)
+url_check <- sprintf("https://cran.r-project.org/web/checks/check_results_%s.html", pkg)
+badge_cran <- sprintf("https://www.r-pkg.org/badges/version/%s", pkg)
+badge_check <- sprintf("https://badges.cranchecks.info/worst/%s.svg", pkg)
+link_cran <- sprintf("[![CRAN version of %s](%s)](%s)", pkg, badge_cran, badge_cran)
+link_check <- sprintf("[![CRAN check results for %s](%s)](%s)", pkg, badge_check, url_check)
+link_repo <- sprintf("[tesselle/%s](https://github.com/tesselle/%s)", pkg, pkg)
+
+tbl <- data.frame(pkg, link_cran, link_check, link_repo)
+knitr::kable(
+  x = tbl, 
+  format = "pipe", 
+  col.names = c("Package", "CRAN Version", "CRAN Status", "Code Repository")
+)
+```
 
 ## Issues