remove a task + some unused dependencies from Suggests

mlr-org · Dec 31, 2024 · f3fc9a9 · f3fc9a9
1 parent b43e7d6
commit f3fc9a9
Show file tree

Hide file tree

Showing 6 changed files with 0 additions and 114 deletions.
diff --git a/.pre-commit-config.yaml b/.pre-commit-config.yaml
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -67,7 +67,6 @@ Imports:
     Rcpp (>= 1.0.4),
     survival
 Suggests:
-    bujar,
     GGally,
     knitr,
     lgr,
@@ -79,9 +78,7 @@ Suggests:
     simsurv,
     survAUC,
     testthat (>= 3.0.0),
-    vdiffr,
     abind,
-    Ecdat,
     coxed,
     mlr3learners,
     pammtools

diff --git a/R/TaskSurv_zzz.R b/R/TaskSurv_zzz.R
@@ -163,38 +163,6 @@ load_rats = function() {
   task
 }
 
-#' @title Unemployment Duration Survival Task
-#'
-#' @name mlr_tasks_unemployment
-#'
-#' @templateVar type Surv
-#' @templateVar task_type survival
-#' @templateVar id unemployment
-#' @templateVar data Ecdat::UnempDur
-#' @template task
-#' @template seealso_task
-#'
-#' @section Preprocessing:
-#' - Only the columns `spell`, `censor1`, `age`, `logwage`, `tenure`, `ui` are
-#' kept in this task.
-#' - Renamed target columns from (`spell`, `censor1`) to (`time`, `status`), so
-#' outcome is the duration until re-employment in a full-time job.
-NULL
-
-load_unemployment = function() {
-  path = file.path(system.file("extdata", package = "mlr3proba"), "unemployment.rds")
-  data = readRDS(path)
-  colnames(data)[colnames(data) == "spell"] = "time"
-  colnames(data)[colnames(data) == "censor1"] = "status"
-
-  b = as_data_backend(data)
-  task = TaskSurv$new("unemployment", b, time = "time", event = "status",
-                      label = "Unemployment Duration")
-  b$hash = task$man = "mlr3proba::mlr_tasks_unemployment"
-
-  task
-}
-
 #' @title Lung Cancer Survival Task
 #'
 #' @name mlr_tasks_lung

diff --git a/inst/data-raw/unemployment.R b/inst/data-raw/unemployment.R
diff --git a/inst/extdata/unemployment.rds b/inst/extdata/unemployment.rds
diff --git a/tests/testthat/test_autoplot.R b/tests/testthat/test_autoplot.R
@@ -8,15 +8,12 @@ test_that("autoplot.PredictionSurv", {
 
   p = autoplot(prediction, type = "calib", task = task)
   expect_true(is.ggplot(p))
-  # vdiffr::expect_doppelganger("predictionsurv_calib", p)
 
   p = autoplot(prediction, type = "dcalib", extend_quantile = TRUE)
   expect_true(is.ggplot(p))
-  # vdiffr::expect_doppelganger("predictionsurv_dcalib", p)
 
   p = autoplot(prediction, type = "preds")
   expect_true(is.ggplot(p))
-  # vdiffr::expect_doppelganger("predictionsurv_preds", p)
 })
 
 test_that("autoplot.TaskDens", {
@@ -26,19 +23,15 @@ test_that("autoplot.TaskDens", {
 
   p = autoplot(task, type = "dens")
   expect_true(is.ggplot(p))
-  # vdiffr::expect_doppelganger("taskdens_dens", p)
 
   p = autoplot(task, type = "freq")
   expect_true(is.ggplot(p))
-  # vdiffr::expect_doppelganger("taskdens_freq", p)
 
   p = autoplot(task, type = "overlay")
   expect_true(is.ggplot(p))
-  # vdiffr::expect_doppelganger("taskdens_overlay", p)
 
   p = autoplot(task, type = "freqpoly")
   expect_true(is.ggplot(p))
-  # vdiffr::expect_doppelganger("taskdens_freqpoly", p)
 })
 
 test_that("autoplot.TaskSurv", {
@@ -49,13 +42,10 @@ test_that("autoplot.TaskSurv", {
 
   p = autoplot(task, type = "target")
   expect_true(is.ggplot(p))
-  # vdiffr::expect_doppelganger("tasksurv_target", p)
 
   p = autoplot(task, type = "pairs")
   expect_s3_class(p, "ggmatrix")
-  # vdiffr::expect_doppelganger("tasksurv_ggmatrix", p)
 
   p = autoplot(task, type = "duo")
   expect_s3_class(p, "ggmatrix")
-  # vdiffr::expect_doppelganger("tasksurv_duo", p)
 })