REDCapCAST/tests/testthat/helper-paths.R

# get_data_location <- function(x) {
#   system.file(
#     "testdata",
#     x,
#     package = "REDCapCAST"
#   )
# }

# setwd("tests/testthat")

get_data_location <- function(x)
  file.path("data", x)
Completed working test suite and added CI 2018-06-28 17:20:14 -04:00			`# get_data_location <- function(x) {`
			`# system.file(`
			`# "testdata",`
			`# x,`
Major update. New functions and improvements. See NEWS.md. 2023-03-07 15:38:28 +01:00			`# package = "REDCapCAST"`
Completed working test suite and added CI 2018-06-28 17:20:14 -04:00			`# )`
			`# }`

minor 2023-04-14 11:47:23 +02:00			`# setwd("tests/testthat")`

working to submit to cran 2023-01-16 09:49:17 +01:00			`get_data_location <- function(x)`
			`file.path("data", x)`