REDCapCAST/tests/testthat/helper-paths.R
2024-06-07 11:16:58 +02:00

15 lines
263 B
R

# get_data_location <- function(x) {
# system.file(
# "testdata",
# x,
# package = "REDCapCAST"
# )
# }
# setwd("tests/testthat")
get_data_location <- function(x){
# here::here(file.path("tests","testthat","data", x))
file.path("data", x)
}