Simplify small parts of the d_test tests.

stan-dev · Jul 14, 2022 · 3aba937 · 3aba937
1 parent fc39bba
commit 3aba937
Showing 1 changed file with 2 additions and 14 deletions.
diff --git a/tests/testthat/test_varsel.R b/tests/testthat/test_varsel.R
@@ -103,13 +103,7 @@ test_that(paste(
       data = dat,
       offset = offs_crr,
       weights = wobs_crr,
-      y = dat_crr[[gsub(
-        "\\(|\\)",
-        "",
-        as.character(
-          rm_addresp(rm_cbind(formul_fit_crr))
-        )[2]
-      )]]
+      y = dat_crr[[stdize_lhs(formul_fit_crr)$y_nm]]
     )
     vs_repr <- do.call(varsel, c(
       list(object = refmods[[tstsetup_ref]], d_test = d_test_crr),
@@ -190,13 +184,7 @@ test_that(paste(
       data = dat_indep,
       offset = offs_crr,
       weights = wobs_crr,
-      y = dat_indep_crr[[gsub(
-        "\\(|\\)",
-        "",
-        as.character(
-          rm_addresp(rm_cbind(formul_fit_crr))
-        )[2]
-      )]]
+      y = dat_indep_crr[[stdize_lhs(formul_fit_crr)$y_nm]]
     )
     vs_indep <- do.call(varsel, c(
       list(object = refmods[[tstsetup_ref]], d_test = d_test_crr),