tests/testthat/helper.R

# helper.R

.path <- system.file("extdata/raw_1.xlsx", package = "seahorse", mustWork = TRUE)

suppressMessages(
  sea <- Seahorse(.path, stages = stages_mst)
)
wmoldham/seahorse documentation built on June 9, 2025, 11:36 a.m.