tests/testthat.R

In richardslab/MRutils: Utility functions for preparing data for Two-Sample MR

library(testthat)
library(MRutils)

test_check("MRutils")


expect_warnings <- function(object, times=1){
	if (times<=1){
		expect_warning(object)
	} else {
		expect_warning(expect_warnings(object,times-1))
	}
}