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