tests/testthat/helper-weights.R

# # Weights used in `two_class_example` tests
# save_weights_two_class_example <- function(seed) {
#   withr::with_seed(seed, {
#     weights_two_class_example <- runif(
#       n = nrow(two_class_example),
#       min = 0,
#       max = 100
#     )
#   })
#
#   saveRDS(
#     object = weights_two_class_example,
#     file = test_path("data/weights-two-class-example.rds"),
#     version = 2
#   )
# }
#
# save_weights_two_class_example(12345)

read_weights_two_class_example <- function() {
  readRDS(test_path("data/weights-two-class-example.rds"))
}

# # Weights used in `hpc_cv` tests
# save_weights_hpc_cv <- function(seed) {
#   withr::with_seed(seed, {
#     weights_hpc_cv <- runif(
#       n = nrow(hpc_cv),
#       min = 0,
#       max = 100
#     )
#   })
#
#   saveRDS(
#     object = weights_hpc_cv,
#     file = test_path("data/weights-hpc-cv.rds"),
#     version = 2
#   )
# }
#
# save_weights_hpc_cv(4321)

read_weights_hpc_cv <- function() {
  readRDS(test_path("data/weights-hpc-cv.rds"))
}

# # Weights used in `solubility_test` tests
# save_weights_solubility_test <- function(seed) {
#   withr::with_seed(seed, {
#     weights_solubility_test <- runif(
#       n = nrow(solubility_test),
#       min = 0,
#       max = 100
#     )
#   })
#
#   saveRDS(
#     object = weights_solubility_test,
#     file = test_path("data/weights-solubility-test.rds"),
#     version = 2
#   )
# }
#
# save_weights_solubility_test(55555)

read_weights_solubility_test <- function() {
  readRDS(test_path("data/weights-solubility-test.rds"))
}

Try the yardstick package in your browser

Any scripts or data that you put into this service are public.

yardstick documentation built on June 22, 2024, 7:07 p.m.