library(testthat) library(tabxplor) # # CRAN OMP THREAD LIMIT # threads_option <- Sys.getenv("OMP_THREAD_LIMIT") #Sys.setenv("OMP_THREAD_LIMIT" = 2) test_check("tabxplor") # Sys.setenv("OMP_THREAD_LIMIT" = threads_option)