tests/testthat/teardown_test-environment.R

# remove sample data
unlink("extdata", recursive = TRUE)

# remove QuasR log files
unlink(list.files(path = ".", pattern = "^QuasR_log_.+\\.txt$"))

# stop cluster object
parallel::stopCluster(clObj)

# restore original values of R_LIBS
Sys.setenv(R_LIBS = oldRlibs)

Try the QuasR package in your browser

Any scripts or data that you put into this service are public.

QuasR documentation built on Nov. 8, 2020, 8:31 p.m.