tests/testthat/covid19_checks_tests.R

In mponce0/covid19.analytics: Load and Analyze Live Data from the COVID-19 Pandemic

test.data.checks <- function() {

	# failing on WINDOWS: "TS-Toronto" case
	#datasets <- c("TS-all","TS-confirmed","TS-confirmed-US","TS-Toronto","aggregated")
	datasets <- c("TS-all","TS-confirmed","TS-confirmed-US","aggregated")

	for (i in datasets) {
		print(i)
		data <- covid19.data(i)
		nullify.data(data)
		nullify.data(data, stringent=TRUE)
		print(paste(rep("#",80),collapse=''))
	}

}