testthat

3热度

1回答

我在本地环境中调用test_file时遇到问题。 local({ newvar <- 1; expect_equal(newvar, 1); }); 工作正常。 local({ newvar <- 1; test_that('newvar is equal to 1:', { expect_equal(newvar, 1) }); }); 工作正常。 local({

6热度

1回答

的R - testthat使用

我使用testthat测试类似于下面的一个包文件树测试目录之外的数据文件： . ├── data │ └── testhaplom.out ├── inst │ └── test │ ├── test1.r │ ├── tmp_S7byVksGRI6Q │ │ └── testm.desc

19热度

4回答

有没有像expect_no_warnings（）那样的测试？

我正在写一个函数的测试，在某些情况下会产生警告。我想确保在其他条件下不会产生警告。我没有看到用testthat轻松测试的明显方法。我想我可以做这样的事情： my.result <- 25 my.func <- function() my.result expect_equal( withCallingHandlers( my.func(), warning=function()

0热度

1回答

test_file（）工作，但test（）失败data.table

我的问题类似于r devtools test() errors but testthat test_file() works，但我不确定@ hadley的评论是否也适用于此处。我创建了一个R package的最小工作实例，其中有testthat::test_file工程测试单个文件，但devtools::test测试包不。这里是我包的唯一的R档R/a.R： #' @export genera

2热度

1回答

使用Roxygen和testthat，在R CMD检查过程中调用哪些内部帮助函数可用于测试用例的正确方法是什么？

我正在创建一个R包，并发现将一个文件中的部分逻辑分解为内部帮助函数非常有用，这些函数在同一个文件中定义。我有一种特殊情况，我的函数通过match.fun()决定使用哪个帮助函数。由于它们不会对其他功能或人员有用，因此我不想将它们放在单独的文件中，而且我也不想导出它们。我所有的测试案例通过使用test_dir()。当我不导出这些函数时，我的测试在R CMD检查期间失败。 "object 'help

5热度

3回答

expect_error_or_warning in testthat？

我有不同的行为在不同平台上一些特别挑剔的代码，但也表现不同，如果valgrind下运行...现在我知道这发出警告，如果在32位Linux 无法运行下的valgrind 给人如果在32位Linux与R -d valgrind 别处运行或以下作品的代码（对不起，缺乏再版的错误oducible的例子，你可能会看到，这将是很难写一个）如果我不是在valgrind下运行，但在valgrind下失败，因为我

0热度

1回答

写作test_that依赖其他测试完成的测试

我写了一系列test_that测试。有一个test_that测试有创建sqlite3表的副作用。其余的测试依赖于这个sqlite3表。有没有办法强制这个测试在任何其他测试之前运行？

2热度

2回答

对存储的R对象进行测试

是否有一个简单的工作流程来编写将对象存储为.rds或.rda的测试，以便将来的测试运行可以比较代码执行结果与存储对象的结果？这样可以很容易地检查返回有些复杂值的函数是否仍然像他们应该那样工作。例如，像： test_obj(res <- lm(y ~ x, data.frame(x=1:3, y=5:7))) ，如果*扩展数据/ test_obj.res.rds *不存在，将在*安装/扩展数据

1热度

1回答

没有R的测试R扩展

我一直在研究R的扩展，它会做一些聚类。该项目使用C++和Rcpp（计算使用RcppArmadillo执行）。因此，我有几个课程需要测试。我被建议使用googletest。不幸的是，我没有运行任何测试代码。问题是，为了测试使用rcpp和googletest框架的类，我必须在R环境之外工作。我的意思是我不会将数据转换为像矢量这样的标准C++数据结构。数据集应该是巨大的。我用数据获得NumericM

4热度

1回答

[R devtools测试（）错误，但testthat test_file里面的（）的作品

我有一个包的功能，我的建筑，分配一个十六进制代码为分析师利用全球环境... optiplum<-function(){ assign( x="optiplum", value=rgb(red=129,green=61,blue=114, maxColorValue = 255), envir=.GlobalEnv) } 我的单元测试的代码是： t