Meet cran cores requirements

Author: maksymiuks

tests/testthat.R

@@ -2,5 +2,4 @@ library(testthat)
 library(checked)
 
 # Meet CRAN multiple core usage requirement
-Sys.setenv("OMP_THREAD_LIMIT" = 2)
 test_check("checked")

tests/testthat/_snaps/reporters.md

@@ -17,12 +17,12 @@
       [][install] pkg.ok.error started
       [][check] rev.both.ok started
       [][install] pkg.ok.error finished ()
-      [][check] rev.both.ok finished with 2 NOTES ()
+      [][check] rev.both.ok finished with 1 NOTE ()
       [][check] rev.both.error started
-      [][check] rev.both.error finished with 2 NOTES ()
+      [][check] rev.both.error finished with 1 NOTE ()
       [][check] rev.both.ok started
-      [][check] rev.both.ok finished with 2 NOTES ()
+      [][check] rev.both.ok finished with 1 NOTE ()
       [][check] rev.both.error started
-      [][check] rev.both.error finished with 1 ERROR, 1 WARNING, 1 NOTE ()
+      [][check] rev.both.error finished with 1 ERROR, 1 WARNING ()
       Finished in 
 

tests/testthat/test-check-reverse.R

@@ -19,7 +19,7 @@ test_that("check_rev_deps works for package with no revdeps", {
     expect_no_error(
       checks <- check_rev_deps(
         file.path(sources_new, "pkg.none"),
-        n = 2L,
+        n = 1L,
         repos = repo,
         reporter = NULL
       )
@@ -37,7 +37,7 @@ test_that("check_rev_deps works for package with one breaking change", {
   withr::with_options(list(pkgType = "source"), {
     design <- check_rev_deps(
       file.path(sources_new, "pkg.ok.error"),
-      n = 2L,
+      n = 1L,
       repos = repo,
       reporter = NULL
     )
@@ -102,7 +102,7 @@ test_that("check_rev_deps works for a package without a version in repos", {
   withr::with_options(list(pkgType = "source"), {
     expect_no_error(design <- check_rev_deps(
       file.path(sources_new, "pkg.suggests"),
-      n = 2L,
+      n = 1L,
       repos = repo,
       reporter = NULL
     ))

tests/testthat/test-check.R

@@ -4,7 +4,7 @@ test_that("check_pkgs works as expected", {
   expect_no_error(
     plan <- check_pkgs(
       file.path(examples_path, c("exampleGood", "exampleBad")),
-      n = 2L,
+      n = 1L,
       repos = "https://cran.r-project.org/",
       reporter = NULL,
       lib.loc = .libPaths()

tests/testthat/test-results-utils.R

@@ -4,7 +4,7 @@ test_that("results_to_df works as expected", {
   expect_no_error(
     plan <- check_pkgs(
       file.path(examples_path, c("exampleGood", "exampleBad")),
-      n = 2L,
+      n = 1L,
       repos = "https://cran.r-project.org/",
       reporter = NULL
     )