我对R比较陌生,正在尝试开发一个示例包,其中包含文档、单元测试等,以使我自己和公司中的其他人能够参考它作为最佳实践。
考虑到这一点,我将一个R函数保存到包结构的R文件夹中(由RStudio创建,位于git分支中)。
#' Loads the typical example for a specific modelling problem
#'
#' @keywords helper dataset logistic
#'
#' @param purpose Provide the type of modelling you're looking to do
#' @return dataset A dataset should be added to the workspace
#'
#' @examples
#' relevantTestDataset(purpose="logistic")
#' relevantTestDataset("logistic")
#'
#' @export
relevantTestDataset<-function(purpose)
{
if (purpose=="logistic")
{
loadedPackage<-"caret"
loadedData<-c("GermanCredit")
}
data(list=loadedData,package=loadedPackage)
}
我已经创建了以下测试(保存到与stringr结构一致的测试文件夹中)
context("Basic functionality")
test_that("a dataset is loaded up for each expected model type",{
expect_that(relevantTestDataset("a"),throws_error())
})
然后,我在dev模式下运行test()并获取
Loading Example
Testing Example
NULL
我尝试过测试(“/test_dir/”),它返回一个空的控制台行,然后继续。
我尝试了各种不同的期望,以查看这是否是问题所在,但所有这些都返回相同的控制台输出。我已经通过将其加载到我的工作区并执行它来验证该函数是否工作。
我确信我在做一件非常愚蠢和明显的事情,有人能告诉我我到底错在哪里吗?
先谢谢你,斯蒂芬
发布于 2013-04-08 21:54:45
您的测试应该在~inst/tests/
中。
例如:
context("Basic functionality")
test_that("a dataset is loaded up for each expected model type",{
expect_that(relevantTestDataset("a"),throws_error())
})
应该在文件~inst/tests/test1.R
中。
此外,应该有一个文件~tests/run-all.R
library(testthat)
library(<yourpackage>)
test_package("<yourpackage>")
https://stackoverflow.com/questions/15876888
复制相似问题