Merge pull request #432 from RMI-PACTA/release/0.1.4-CRAN-UPDATE

Release/0.1.4 cran update

R/match_name.R

@@ -63,6 +63,7 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' library(r2dii.data)
 #' library(tibble)
 #'
@@ -102,6 +103,7 @@
 #'
 #' # Cleanup
 #' options(restore)
+#' }
 match_name <- function(loanbook,
                        abcd,
                        by_sector = TRUE,

R/r2dii.match-package.R

@@ -1,6 +1,16 @@
 #' @keywords internal
 "_PACKAGE"
 
+
+.onLoad <- function(libname, pkgname) {
+  # CRAN OMP THREAD LIMIT
+  # logic for setting OMP_THREAD_LIMIT form https://stackoverflow.com/a/77323812
+  # check modified from testthat's on_cran function
+  if (!interactive() && isFALSE(as.logical(Sys.getenv("NOT_CRAN", "false")))) {
+    Sys.setenv("OMP_THREAD_LIMIT" = 2)
+  }
+}
+
 # The following block is used by usethis to automatically manage
 # roxygen namespace tags. Modify with care!
 ## usethis namespace: start

tests/testthat/test-match_name.R

@@ -1,6 +1,7 @@
 library(dplyr, warn.conflicts = FALSE)
 library(r2dii.data)
 
+
 test_that("w/ non-NA only at intermediate level yields matches at intermediate
           level only", {
   lbk <- tibble::tibble(
@@ -26,6 +27,8 @@ test_that("w/ non-NA only at intermediate level yields matches at intermediate
   expect_equal(out$level, "intermediate_parent_999")
 })
 
+skip_on_cran()
+
 test_that("w/ missing values at all levels outputs 0-row", {
   lbk <- tibble(
     id_direct_loantaker = NA_character_,