Add CRAN status badges

_quarto.yml

@@ -67,5 +67,7 @@ format:
       - default
       - custom.scss
 
+default-image-extension: ""
+
 # Enable banner style title blocks
 title-block-banner: true

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