Fewer snapshots in testing (#72)

* use saved objects instead of snapshots for #71

* use saved objects instead of snapshots

* rlang version requirement

* use saved objects instead of snapshots, binary mlp edition

* use saved objects instead of snapshots, mulitclass mlp edition

* use saved objects instead of snapshots, regression mlp edition

* try testing on other OS

* updated multinom snapshot

* regenerate test objects based on changes from #70

* remove model print snapshots since they are not reproducible

* try running on all os

* add back skip for apple silicon

* update skips

* more skip updates

DESCRIPTION

@@ -22,10 +22,10 @@ Imports:
     ggplot2,
     glue,
     hardhat,
-    rlang,
+    rlang (>= 1.1.1),
     stats,
     tibble,
-    torch (>= 0.6.0),
+    torch (>= 0.11.0),
     utils
 Suggests: 
     covr,

tests/testthat/helper-save-objects.R

@@ -0,0 +1,27 @@
+last_param <- function(x) {
+ last_epoch <- length(x$loss)
+ coef(x, epoch = last_epoch)
+}
+
+save_coef <- function(x) {
+ cl <- match.call()
+ nm <- as.character(cl$x)
+ fl <- file.path("saved", paste0(nm, ".rds"))
+ if (file.exists(fl)) {
+  return(FALSE)
+ }
+ res <- last_param(x)
+ saveRDS(res, file = fl)
+ invisible(TRUE)
+}
+
+load_coef <- function(x) {
+ cl <- match.call()
+ nm <- as.character(cl$x)
+ fl <- file.path("saved", paste0(nm, ".rds"))
+ if (!file.exists(fl)) {
+  rlang::abort(paste("Can't find test results:", fl))
+ }
+ readRDS(fl)
+}
+