在腳本中運行 testthat's `test_that`s

Question

當我編寫簡單快速的代碼時，可能是為了探索或幫助他人調試，我很想測試我的代碼並與我的同行分享我的測試。

設置一個完整的 {testthat} 環境並不難，但在分享結果方面存在很大的摩擦。 此外，為了快速探索，將所有內容放在一個腳本中可以幫助理解導致解決方案的所有想法和心理過程。 這也有助於在聊天中分享片段，例如 TG/WA/...。

我目前的解決方案是在開發過程中設置以下兩個腳本並在最后共享code.R的內容（或文件）。

## myproj/code.R
# code ---------------------
if (fun_1() + fun_2() == 3) {
  message("good job")
}

# funs ---------------------
fun_1 <- function() 1  # OK
fun_2 <- function() 3  # KO

# tests --------------------
test_that("fun_1 works", {
  expect_equal(fun_1(), 1)
})
test_that("fun_2 works", {
  expect_equal(fun_2(), 2)
})

## myproj/run_tests.R
testthat::test_file("code.R")

我的問題是：有一種方法可以在當前全局環境中的本地 session 中運行所有test_that s 測試，這樣一切都將是獨立的（甚至是運行所有測試的選項），以及一個（例如，我) 可以在單個按鍵組合中運行所有測試，從而生成標准 {testthat} 記者的 output？

我正在考慮類似以下的事情。

## myproj/code.R
# code ---------------------
if (fun_1() + fun_2() == 3) {
  message("good job")
}

# funs ---------------------
fun_1 <- function() 1  # OK
fun_2 <- function() 3  # KO

# tests --------------------
with_reporter(default_reporter(), {
  test_that("fun_1 works", {
    expect_equal(fun_1(), 1)
  })
  test_that("fun_2 works", {
    expect_equal(fun_2(), 2)
  })
})

但如果只有所有測試都通過，它就可以工作。

注意：僅選擇和運行

test_that("fun_2 works", {
  expect_equal(fun_2(), 2)
})

工作得很好，提供有關錯誤的信息。

Answer 1

而不是default_reporter ，使用check_reporter可以正常工作：

## myproj/code.R
library(testthat)

# code ---------------------
if (fun_1() + fun_2() == 3) {
  message("good job")
}
#> Error in fun_1(): could not find function "fun_1"

# funs ---------------------
fun_1 <- function() 1  # OK
fun_2 <- function() 3  # KO

# tests --------------------
with_reporter(check_reporter(), {
  test_that("fun_1 works", {
    expect_equal(fun_1(), 1)
  })
  test_that("fun_2 works", {
    expect_equal(fun_2(), 2)
  })
})
#> == Failed tests ================================================================
#> -- Failure (<text>:19:5): fun_2 works ------------------------------------------
#> fun_2() not equal to 2.
#> 1/1 mismatches
#> [1] 3 - 2 == 1
#> 
#> [ FAIL 1 | WARN 0 | SKIP 0 | PASS 1 ]

^{由reprex package (v2.0.1) 於 2021 年 12 月 27 日創建}

Session 信息

sessioninfo::session_info() #> - Session info --------------------------------------------------------------- #> setting value #> version R version 4.1.2 (2021-11-01) #> os Windows 10 x64 (build 22523) #> system x86_64, mingw32 #> ui RTerm #> language (EN) #> collate English_United States.1252 #> ctype English_United States.1252 #> tz Europe/Berlin #> date 2021-12-27 #> pandoc 2.14.0.3 @ C:/Bin/RStudio/bin/pandoc/ (via rmarkdown) #> #> - Packages ------------------------------------------------------------------- #> package * version date (UTC) lib source #> cli 3.1.0 2021-10-27 [1] CRAN (R 4.1.2) #> crayon 1.4.2 2021-10-29 [1] CRAN (R 4.1.2) #> desc 1.4.0 2021-09-28 [1] CRAN (R 4.1.2) #> digest 0.6.29 2021-12-01 [1] CRAN (R 4.1.2) #> evaluate 0.14 2019-05-28 [1] CRAN (R 4.1.2) #> fastmap 1.1.0 2021-01-25 [1] CRAN (R 4.1.2) #> fs 1.5.2 2021-12-08 [1] CRAN (R 4.1.2) #> glue 1.6.0 2021-12-17 [1] CRAN (R 4.1.2) #> highr 0.9 2021-04-16 [1] CRAN (R 4.1.2) #> htmltools 0.5.2 2021-08-25 [1] CRAN (R 4.1.2) #> knitr 1.37 2021-12-16 [1] CRAN (R 4.1.2) #> magrittr 2.0.1 2020-11-17 [1] CRAN (R 4.1.2) #> pkgload 1.2.4 2021-11-30 [1] CRAN (R 4.1.2) #> R6 2.5.1 2021-08-19 [1] CRAN (R 4.1.2) #> reprex 2.0.1 2021-08-05 [1] CRAN (R 4.1.2) #> rlang 0.4.12 2021-10-18 [1] CRAN (R 4.1.2) #> rmarkdown 2.11 2021-09-14 [1] CRAN (R 4.1.2) #> rprojroot 2.0.2 2020-11-15 [1] CRAN (R 4.1.2) #> rstudioapi 0.13 2020-11-12 [1] CRAN (R 4.1.2) #> sessioninfo 1.2.2 2021-12-06 [1] CRAN (R 4.1.2) #> stringi 1.7.6 2021-11-29 [1] CRAN (R 4.1.2) #> stringr 1.4.0 2019-02-10 [1] CRAN (R 4.1.2) #> testthat * 3.1.1 2021-12-03 [1] CRAN (R 4.1.2) #> withr 2.4.3 2021-11-30 [1] CRAN (R 4.1.2) #> xfun 0.29 2021-12-14 [1] CRAN (R 4.1.2) #> yaml 2.2.1 2020-02-01 [1] CRAN (R 4.1.1) #> #> [1] C:/Bin/R/R-4.1.2/library #> #> ------------------------------------------------------------------------------

此外，我剛剛發現，如果我在腳本上編寫測試，在 RStudio 中，會出現一個按鈕以方便測試：