Я хочу создать глобальные функции, которые будут использоваться в каждом модульном тесте моего пакета:
beforeTest(), который создает таблицу базы данных для проверки afterTest(), которая отбрасывает таблицу тестовой базы данных.
Файлы:
/ tests / testthat.R:
library(mypackage)
library(testthat)
beforeTest <- function() {
# implementation
}
afterTest <- function() {
# implementation
}
test_check("mypackage")
/ tests / testthat / unit_test_1.R:
test_that("mytest", {
beforeTest()
on.exit(afterTest())
# implemetation of the unit test...
# ...
# ...
})
Проблема в том, что файл unit_test_1.R не видит функций beforeTest() и afterTest()