![](/img/trans.png)
[英]testthat with lintr::expect_lint_free() fails with devtools::check() but works with devtools::test()
[英]devtools::test() works, but devtools::check() fails when testing `expect_known_value()`
我正在為我正在開發的 R 包構建單元測試。 我正在使用testthat
,對於某些功能,我正在使用testthat::expect_known_value()
我將由expect_known_value()
創建的參考文件保存在 testthat 文件夾“package/tests/testthat/reference_files”內的文件夾中
我的兩個單元測試如下所示:
test_that("project_single_joint_to_MP works when .method is 'first_last'", {
df <- dplyr::filter(mocapr::mocapr_data, movement_nr == 11)
expect_known_value(project_single_joint_to_MP(df, LSX, LSY, LSZ, "LS", .method = "first_last"), here::here("tests", "testthat", "reference_files", "first_last"))
})
test_that("project_single_joint_to_MP works when .method is 'first_dist'", {
df <- dplyr::filter(mocapr::mocapr_data, movement_nr == 11)
expect_known_value(project_single_joint_to_MP(df, LSX, LSY, LSZ, "LS", .method = "first_dist"), here::here("tests", "testthat", "reference_files", "first_dist"))
})
運行devtools::test()
或devtools::test_coverage()
時沒有錯誤,但是當我運行devtools::check()
時,兩個單元測試失敗並顯示以下消息:
-- 1. Error: project_single_joint_to_MP works when .method is 'first_last' (@test-project_to_MP.R#12) -------------------------------------------------------------------
cannot open the connection
1: expect_known_value(project_single_joint_to_MP(df, LSX, LSY, LSZ, "LS", .method = "first_last"), here::here("tests", "testthat", "reference_files", "first_last")) at testthat/test-project_to_MP.R:12
2: saveRDS(object, file, version = version)
3: gzfile(file, mode)
-- 2. Error: project_single_joint_to_MP works when .method is 'first_dist' (@test-project_to_MP.R#17) -------------------------------------------------------------------
cannot open the connection
1: expect_known_value(project_single_joint_to_MP(df, LSX, LSY, LSZ, "LS", .method = "first_dist"), here::here("tests", "testthat", "reference_files", "first_dist")) at testthat/test-project_to_MP.R:17
2: saveRDS(object, file, version = version)
3: gzfile(file, mode)
我找到了一些類似問題的答案,建議將Sys.setenv Sys.setenv(R_TESTS="")
或Sys.setenv("R_TESTS" = "")
添加到 testthat.R 的第一行,但這不會改變任何事情。
我應該將參考文件放在哪里,以便devtools::check()
可以打開文件?
我在管理員模式下運行 Rstudio,以防萬一。
Session 信息:
R version 3.6.1 (2019-07-05)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18362)
Matrix products: default
locale:
[1] LC_COLLATE=Danish_Denmark.1252 LC_CTYPE=Danish_Denmark.1252 LC_MONETARY=Danish_Denmark.1252 LC_NUMERIC=C LC_TIME=Danish_Denmark.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] mocapr_0.0.1.9004 forcats_0.4.0 stringr_1.4.0 dplyr_0.8.3 purrr_0.3.3 readr_1.3.1 tidyr_1.0.0 tibble_2.1.3 ggplot2_3.2.1
[10] tidyverse_1.2.1 testthat_2.2.1 usethis_1.5.1
loaded via a namespace (and not attached):
[1] nlme_3.1-141 fs_1.3.1 xopen_1.0.0 lubridate_1.7.4 devtools_2.2.1 progress_1.2.2 httr_1.4.1
[8] rprojroot_1.3-2 tools_3.6.1 backports_1.1.5 utf8_1.1.4 R6_2.4.0 lazyeval_0.2.2 colorspace_1.4-1
[15] withr_2.1.2 tidyselect_0.2.5 prettyunits_1.0.2 processx_3.4.1 curl_4.2 compiler_3.6.1 cli_1.1.0
[22] rvest_0.3.4 xml2_1.2.2 desc_1.2.0 scales_1.0.0 callr_3.3.2 commonmark_1.7 digest_0.6.22
[29] rmarkdown_1.16 pkgconfig_2.0.3 htmltools_0.4.0 sessioninfo_1.1.1 rlang_0.4.0 readxl_1.3.1 rstudioapi_0.10
[36] generics_0.0.2 farver_1.1.0 jsonlite_1.6 magrittr_1.5 Rcpp_1.0.2 munsell_0.5.0 fansi_0.4.0
[43] lifecycle_0.1.0 stringi_1.4.3 yaml_2.2.0 MASS_7.3-51.4 pkgbuild_1.0.6 grid_3.6.1 crayon_1.3.4
[50] lattice_0.20-38 haven_2.1.1 hms_0.5.1 zeallot_0.1.0 knitr_1.25 ps_1.3.0 pillar_1.4.2
[57] pkgload_1.0.2 glue_1.3.1 evaluate_0.14 gganimate_1.0.3.9000 remotes_2.1.0 modelr_0.1.5 vctrs_0.2.0
[64] tweenr_1.0.1 cellranger_1.1.0 gtable_0.3.0 rcmdcheck_1.3.3 polyclip_1.10-0 assertthat_0.2.1 xfun_0.10
[71] ggforce_0.3.1 broom_0.5.2 roxygen2_6.1.1 memoise_1.1.0 ellipsis_0.3.0 here_0.1
有同樣的問題,我的參考文件在 package/test/reference_files 中。 但是測試位於 package/test/testthat 中。 退出 testthat 文件夾並返回到 reference_folder 為我做了這件事。 那是:
expect_known_value(test_depth, '../reference_files/ref_data.rda',
update = F, print = TRUE)
在你的情況下,我會嘗試:
expect_known_value(project_single_joint_to_MP(df, LSX, LSY, LSZ, "LS", .method = "first_dist"), "reference_files/first_dist")
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.