diff --git a/DESCRIPTION b/DESCRIPTION
index 210eb3902..e403ae524 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
Package: mlr3extralearners
Title: Extra Learners For mlr3
-Version: 0.5.16
+Version: 0.5.17
Authors@R:
c(person(given = "Raphael",
family = "Sonabend",
@@ -34,10 +34,10 @@ Authors@R:
person(given = "Javier",
family = "GarcĂa",
role = "ctb",
- email = "geshter@hotmail.com"),
- person(given = "Sebastian",
- family = "Fischer",
- role = c("cre", "ctb"),
+ email = "geshter@hotmail.com"),
+ person(given = "Sebastian",
+ family = "Fischer",
+ role = c("cre", "ctb"),
email = "sebf.fischer@gmail.com"))
Description: Extra learners for use in mlr3.
License: LGPL-3
diff --git a/R/sysdata.rda b/R/sysdata.rda
index b8a1f5196..c333c32a1 100644
Binary files a/R/sysdata.rda and b/R/sysdata.rda differ
diff --git a/vignettes/learners/learner_status.Rmd b/vignettes/learners/learner_status.Rmd
index be1cb4641..80302efec 100644
--- a/vignettes/learners/learner_status.Rmd
+++ b/vignettes/learners/learner_status.Rmd
@@ -8,9 +8,45 @@ library(mlr3extralearners)
path = mlr3extralearners:::pkg_root(".")
tbl = list_mlr3learners(select = c("id", "required_packages", "mlr3_package"))
-tbl[,Package := sapply(required_packages, function(x) x[1])]
-tbl$required_packages = NULL
-tbl$Author = apply(tbl, 1, function(row) {
+
+remove_mlr3 = function(pkgs) {
+ pkgs = pkgs[!grepl("mlr3", pkgs)]
+ return(pkgs)
+}
+
+no_badges = c("CoxBoost", "catboost", "stats", "stats4")
+
+make_badge = function(pkg) {
+ if (pkg %in% no_badges) return("")
+ paste0(sprintf("[![cran checks](https://cranchecks.info/badges/worst/%s)]", pkg),
+ sprintf("(https://cran.r-project.org/web/checks/check_results_%s.html)", pkg))
+}
+
+make_badges = function(pkgs) {
+ mlr3misc::map_chr(pkgs, make_badge)
+}
+
+upstream_pkgs = mlr3misc::map(tbl$required_packages, remove_mlr3)
+
+upstream_status = upstream_pkgs |>
+ mlr3misc::map(make_badges) |>
+ mlr3misc::map_chr(function(x) mlr3misc::str_collapse(x, sep = "
"))
+
+upstream_pkgs = upstream_pkgs |>
+ mlr3misc::map(function(x) mlr3misc::str_collapse(x, sep = "
"))
+
+mlr3_pkgs = tbl$mlr3_package
+
+#mlr3_status = mlr3_pkgs |>
+# mlr3misc::map(make_badges)
+
+tbl = tbl[, "id"]
+tbl[["mlr3"]] = mlr3_pkgs
+#tbl[["mlr3_status"]] = mlr3_status
+tbl[["upstream"]] = upstream_pkgs
+tbl[["upstream_status"]] = upstream_status
+
+tbl$author = apply(tbl, 1, function(row) {
switch(row[[2]],
"mlr3extralearners" = {
x = readLines(file.path(path, "man", paste0("mlr_learners_", row[[1]], ".Rd")))
@@ -22,17 +58,11 @@ tbl$Author = apply(tbl, 1, function(row) {
)})
# edge cases
-tbl[grepl("debug|featureless", id) & mlr3_package == "mlr3", "Package"] = "mlr3"
-tbl[grepl("debug|featureless", id) & mlr3_package == "mlr3cluster", "Package"] = "mlr3cluster"
+#tbl[grepl("debug|featureless", id) & mlr3 == "mlr3", "mlr3"] = "mlr3"
+#tbl[grepl("debug|featureless", id) & mlr3 == "mlr3cluster", "mlr3"] = "mlr3cluster"
+tbl = tbl[order(tbl, tolower(mlr3), id)]
+colnames(tbl) = c("Key", "Package", "Upstream", "Upstream Status", "Author")
+knitr::kable(tbl, "html", escape = FALSE)
-tbl[,Status := ifelse(mlr3_package == "mlr3extralearners",
- paste0("[![", Package, "](https://github.com/mlr-org/mlr3extralearners/workflows/", Package, "%20(ubuntu-latest,%20release)/badge.svg)](https://github.com/mlr-org/mlr3extralearners/actions?query=workflow%3A%22", Package, "+%28ubuntu-latest%2C+release%29%22)"),
- paste0("[![", mlr3_package, "](https://github.com/mlr-org/",mlr3_package ,"/workflows/tic/badge.svg)](https://github.com/mlr-org/", mlr3_package,"/actions)"))]
-
-tbl[,"Cran Status" := sprintf("[![cran checks](https://cranchecks.info/badges/worst/%s)](https://cran.r-project.org/web/checks/check_results_%s.html)",
-Package, Package)]
-
-colnames(tbl)[1:2] = c("Key", "mlr3 Package")
-tbl = tbl[order(tbl, tolower(Package), Key), c(1, 2, 3, 5, 6, 4)]
-knitr::kable(tbl, "pipe")
```
+