Merge pull request #129 from DoubleML/m-fix128

MalteKurz · web-flow · commit 5e0437945d93 · 2021-10-12T09:27:50.000+02:00
rename test_name to .test_name to fix #128
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -42,7 +42,7 @@ Suggests:
     rmarkdown,
     testthat,
     covr,
-    patrick,
+    patrick (>= 0.1.0),
     paradox (>= 0.4.0),
     dplyr,
     glmnet,
diff --git a/tests/testthat/test-double_ml_datasets.R b/tests/testthat/test-double_ml_datasets.R
@@ -8,7 +8,7 @@ test_cases = expand.grid(
   instrument = c(TRUE, FALSE),
   stringsAsFactors = FALSE)
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 testthat::skip_on_cran()
 patrick::with_parameters_test_that("Unit tests for datasets functionalities:",
diff --git a/tests/testthat/test-double_ml_iivm.R b/tests/testthat/test-double_ml_iivm.R
@@ -21,7 +21,7 @@ if (on_cran) {
     stringsAsFactors = FALSE)
 }
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for IIVM:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_iivm_parameter_passing.R b/tests/testthat/test-double_ml_iivm_parameter_passing.R
@@ -26,8 +26,8 @@ test_cases_nocf = expand.grid(
   trimming_threshold = 1e-5,
   stringsAsFactors = FALSE)
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
-test_cases_nocf["test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases_nocf[".test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for parameter passing of IIVM (oop vs fun):",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_iivm_trim.R b/tests/testthat/test-double_ml_iivm_trim.R
@@ -20,7 +20,7 @@ if (on_cran) {
     trimming_threshold = c(1e-12, 0.05),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for IIVM:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_iivm_tuning.R b/tests/testthat/test-double_ml_iivm_tuning.R
@@ -41,7 +41,7 @@ if (on_cran) {
 }
 
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for tuning of IIVM:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_iivm_user_score.R b/tests/testthat/test-double_ml_iivm_user_score.R
@@ -37,7 +37,7 @@ if (on_cran) {
     stringsAsFactors = FALSE)
 }
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for IIVM, callable score:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_irm.R b/tests/testthat/test-double_ml_irm.R
@@ -12,15 +12,15 @@ if (on_cran) {
     score = "ATTE",
     trimming_threshold = 0,
     stringsAsFactors = FALSE)
-  test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+  test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 } else {
   test_cases = expand.grid(
     learner = "cv_glmnet",
     dml_procedure = c("dml1", "dml2"),
     score = c("ATE", "ATTE"),
     trimming_threshold = 0,
     stringsAsFactors = FALSE)
-  test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+  test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 }
 
 patrick::with_parameters_test_that("Unit tests for IRM:",
diff --git a/tests/testthat/test-double_ml_irm_loaded_mlr3learner.R b/tests/testthat/test-double_ml_irm_loaded_mlr3learner.R
@@ -18,7 +18,7 @@ if (on_cran) {
     trimming_threshold = 0,
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for IRM:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_irm_parameter_passing.R b/tests/testthat/test-double_ml_irm_parameter_passing.R
@@ -26,8 +26,8 @@ test_cases_nocf = expand.grid(
   trimming_threshold = 1e-5,
   stringsAsFactors = FALSE)
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
-test_cases_nocf["test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases_nocf[".test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for parameter passing of IRM (oop vs fun):",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_irm_trim.R b/tests/testthat/test-double_ml_irm_trim.R
@@ -20,7 +20,7 @@ if (on_cran) {
     trimming_threshold = c(1e-12, 0.05),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for IRM:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_irm_tuning.R b/tests/testthat/test-double_ml_irm_tuning.R
@@ -45,7 +45,7 @@ if (on_cran) {
     stringsAsFactors = FALSE)
 }
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 # skip('Skip tests for tuning')
 patrick::with_parameters_test_that("Unit tests for tuning of PLR:",
diff --git a/tests/testthat/test-double_ml_irm_user_score.R b/tests/testthat/test-double_ml_irm_user_score.R
@@ -27,15 +27,15 @@ if (on_cran) {
     dml_procedure = "dml2",
     trimming_threshold = 0,
     stringsAsFactors = FALSE)
-  test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+  test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 } else {
   test_cases = expand.grid(
     learner = "regr.glmnet",
     learner_m = "classif.glmnet",
     dml_procedure = c("dml1", "dml2"),
     trimming_threshold = c(0, 0.01),
     stringsAsFactors = FALSE)
-  test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+  test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 }
 
 patrick::with_parameters_test_that("Unit tests for IRM, callable score:",
diff --git a/tests/testthat/test-double_ml_pliv.R b/tests/testthat/test-double_ml_pliv.R
@@ -18,7 +18,7 @@ if (on_cran) {
     score = "partialling out",
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLIV:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_multi_z_parameter_passing.R b/tests/testthat/test-double_ml_pliv_multi_z_parameter_passing.R
@@ -18,8 +18,8 @@ test_cases_nocf = expand.grid(
   score = "partialling out",
   stringsAsFactors = FALSE)
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
-test_cases_nocf["test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases_nocf[".test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for parameter passing of PLIV.partialX (oop vs fun):",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_one_way_cluster.R b/tests/testthat/test-double_ml_pliv_one_way_cluster.R
@@ -16,7 +16,7 @@ if (on_cran) {
     score = "partialling out",
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 set.seed(1234)
 N = 25 # number of observations (first dimension)
diff --git a/tests/testthat/test-double_ml_pliv_parameter_passing.R b/tests/testthat/test-double_ml_pliv_parameter_passing.R
@@ -23,8 +23,8 @@ test_cases_nocf = expand.grid(
   score = "partialling out",
   stringsAsFactors = FALSE)
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
-test_cases_nocf["test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases_nocf[".test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for parameter passing of PLIV (oop vs fun):",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_partial_functional_initializer.R b/tests/testthat/test-double_ml_pliv_partial_functional_initializer.R
@@ -16,7 +16,7 @@ if (on_cran) {
     score = "partialling out",
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLIV (partialX functional initialization):",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_partial_x.R b/tests/testthat/test-double_ml_pliv_partial_x.R
@@ -9,7 +9,7 @@ test_cases = expand.grid(
   dml_procedure = c("dml1", "dml2"),
   score = "partialling out",
   stringsAsFactors = FALSE)
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLIV.partialX:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_partial_xz.R b/tests/testthat/test-double_ml_pliv_partial_xz.R
@@ -11,7 +11,7 @@ test_cases = expand.grid(
   dml_procedure = c("dml1", "dml2"),
   score = "partialling out",
   stringsAsFactors = FALSE)
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLIV.partialXZ:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_partial_xz_parameter_passing.R b/tests/testthat/test-double_ml_pliv_partial_xz_parameter_passing.R
@@ -16,8 +16,8 @@ test_cases_nocf = expand.grid(
   score = "partialling out",
   stringsAsFactors = FALSE)
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
-test_cases_nocf["test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases_nocf[".test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for parameter passing of PLIV.partialXZ (oop vs fun):",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_partial_z.R b/tests/testthat/test-double_ml_pliv_partial_z.R
@@ -9,7 +9,7 @@ test_cases = expand.grid(
   dml_procedure = c("dml1", "dml2"),
   score = "partialling out",
   stringsAsFactors = FALSE)
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLIV.partialZ:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_partial_z_parameter_passing.R b/tests/testthat/test-double_ml_pliv_partial_z_parameter_passing.R
@@ -16,8 +16,8 @@ test_cases_nocf = expand.grid(
   score = "partialling out",
   stringsAsFactors = FALSE)
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
-test_cases_nocf["test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases_nocf[".test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for parameter passing of PLIV.partialZ (oop vs fun):",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_pliv_tuning.R b/tests/testthat/test-double_ml_pliv_tuning.R
@@ -44,7 +44,7 @@ if (on_cran) {
     stringsAsFactors = FALSE)
 }
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 # skip('Skip tests for tuning')
 
diff --git a/tests/testthat/test-double_ml_pliv_two_way_cluster.R b/tests/testthat/test-double_ml_pliv_two_way_cluster.R
@@ -18,7 +18,7 @@ if (on_cran) {
     score = "partialling out",
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 set.seed(1234)
 N = 25 # number of observations (first dimension)
diff --git a/tests/testthat/test-double_ml_pliv_user_score.R b/tests/testthat/test-double_ml_pliv_user_score.R
@@ -27,7 +27,7 @@ if (on_cran) {
     dml_procedure = c("dml1", "dml2"),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLIV, callable score:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr.R b/tests/testthat/test-double_ml_plr.R
@@ -18,7 +18,7 @@ if (on_cran) {
     score = c("IV-type", "partialling out"),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLR:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_classifier.R b/tests/testthat/test-double_ml_plr_classifier.R
@@ -20,7 +20,7 @@ if (on_cran) {
     score = c("IV-type", "partialling out"),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLR with classifier for ml_m:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_exception_handling.R b/tests/testthat/test-double_ml_plr_exception_handling.R
@@ -25,7 +25,7 @@ if (on_cran) {
     apply_cross_fitting = c(TRUE, FALSE),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for exception handling of PLR:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_export_preds.R b/tests/testthat/test-double_ml_plr_export_preds.R
@@ -10,7 +10,7 @@ test_cases = expand.grid(
   dml_procedure = "dml2",
   score = "partialling out",
   stringsAsFactors = FALSE)
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLR with classifier for ml_m:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_loaded_mlr3learner.R b/tests/testthat/test-double_ml_plr_loaded_mlr3learner.R
@@ -16,7 +16,7 @@ if (on_cran) {
     score = c("IV-type", "partialling out"),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLR:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_multitreat.R b/tests/testthat/test-double_ml_plr_multitreat.R
@@ -19,7 +19,7 @@ if (on_cran) {
     stringsAsFactors = FALSE)
 }
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLR:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_nocrossfit.R b/tests/testthat/test-double_ml_plr_nocrossfit.R
@@ -22,7 +22,7 @@ if (on_cran) {
     n_folds = c(1, 2),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLR:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_nonorth.R b/tests/testthat/test-double_ml_plr_nonorth.R
@@ -30,7 +30,7 @@ if (on_cran) {
     n_rep = c(1, 2),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLR:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_p_adjust.R b/tests/testthat/test-double_ml_plr_p_adjust.R
@@ -22,7 +22,7 @@ if (on_cran) {
     apply_cross_fitting = c(TRUE, FALSE),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("Unit tests for PLR:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_parameter_passing.R b/tests/testthat/test-double_ml_plr_parameter_passing.R
@@ -23,8 +23,8 @@ test_cases_nocf = expand.grid(
   score = "partialling out",
   stringsAsFactors = FALSE)
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
-test_cases_nocf["test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases_nocf[".test_name"] = apply(test_cases_nocf, 1, paste, collapse = "_")
 
 # skip('Skip tests for tuning')
 
diff --git a/tests/testthat/test-double_ml_plr_rep_cross_fit.R b/tests/testthat/test-double_ml_plr_rep_cross_fit.R
@@ -12,15 +12,15 @@ if (on_cran) {
     score = "partialling out",
     n_rep = c(5),
     stringsAsFactors = FALSE)
-  test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+  test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 } else {
   test_cases = expand.grid(
     learner = c("regr.lm", "regr.cv_glmnet"),
     dml_procedure = c("dml1", "dml2"),
     score = c("IV-type", "partialling out"),
     n_rep = c(2, 5),
     stringsAsFactors = FALSE)
-  test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+  test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 }
 
 patrick::with_parameters_test_that("Unit tests for PLR:",
diff --git a/tests/testthat/test-double_ml_plr_set_samples.R b/tests/testthat/test-double_ml_plr_set_samples.R
@@ -22,7 +22,7 @@ if (on_cran) {
     n_rep = c(1, 3),
     stringsAsFactors = FALSE)
 }
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 patrick::with_parameters_test_that("PLR with external sample provision:",
   .cases = test_cases, {
diff --git a/tests/testthat/test-double_ml_plr_tuning.R b/tests/testthat/test-double_ml_plr_tuning.R
@@ -33,7 +33,7 @@ if (on_cran) {
 }
 
 
-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")
+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")
 
 # skip('Skip tests for PLR tuning')
 patrick::with_parameters_test_that("Unit tests for tuning of PLR:",
diff --git a/tests/testthat/test-double_ml_plr_user_score.R b/tests/testthat/test-double_ml_plr_user_score.R

Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,7 @@ if (on_cran) {`
`21`	`21`	`stringsAsFactors = FALSE)`
`22`	`22`	`}`
`23`	`23`
`24`		`-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")`
	`24`	`+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")`
`25`	`25`
`26`	`26`	`patrick::with_parameters_test_that("Unit tests for IIVM:",`
`27`	`27`	`.cases = test_cases, {`
Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,7 @@ if (on_cran) {`
`20`	`20`	`trimming_threshold = c(1e-12, 0.05),`
`21`	`21`	`stringsAsFactors = FALSE)`
`22`	`22`	`}`
`23`		`-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")`
	`23`	`+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")`
`24`	`24`
`25`	`25`	`patrick::with_parameters_test_that("Unit tests for IIVM:",`
`26`	`26`	`.cases = test_cases, {`
Original file line number	Diff line number	Diff line change
`@@ -41,7 +41,7 @@ if (on_cran) {`
`41`	`41`	`}`
`42`	`42`
`43`	`43`
`44`		`-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")`
	`44`	`+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")`
`45`	`45`
`46`	`46`	`patrick::with_parameters_test_that("Unit tests for tuning of IIVM:",`
`47`	`47`	`.cases = test_cases, {`
Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,7 @@ if (on_cran) {`
`37`	`37`	`stringsAsFactors = FALSE)`
`38`	`38`	`}`
`39`	`39`
`40`		`-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")`
	`40`	`+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")`
`41`	`41`
`42`	`42`	`patrick::with_parameters_test_that("Unit tests for IIVM, callable score:",`
`43`	`43`	`.cases = test_cases, {`
Original file line number	Diff line number	Diff line change
`@@ -18,7 +18,7 @@ if (on_cran) {`
`18`	`18`	`trimming_threshold = 0,`
`19`	`19`	`stringsAsFactors = FALSE)`
`20`	`20`	`}`
`21`		`-test_cases["test_name"] = apply(test_cases, 1, paste, collapse = "_")`
	`21`	`+test_cases[".test_name"] = apply(test_cases, 1, paste, collapse = "_")`
`22`	`22`
`23`	`23`	`patrick::with_parameters_test_that("Unit tests for IRM:",`
`24`	`24`	`.cases = test_cases, {`