Death.toll of COVID19 cases, live updated for pandemics records

mponce0 · May 17, 2021 · 1a30ae0 · 1a30ae0
1 parent e8fba27
commit 1a30ae0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/NEWS b/NEWS
@@ -1,4 +1,5 @@
 Apr 2021: Bugs fixes _ ver 2.2
+		- pandemics.data (for both historical pandemics and vaccines records): live update of COVID-19 Death.toll cases when loading the datasets
 		- fix bug in checkGeoLoc and select.per.loc, affecting continents/countries mismatch for some locations/continents, with side-effects on dashboard and totals.plt, ... 
 
 Feb/Mar 2021: More data sources added _ ver 2.1

diff --git a/R/pandemics.R b/R/pandemics.R
@@ -26,6 +26,10 @@ pandemics.loaddata <- function(tgt.file="pandemics.RDS",
 		pnd.data <- readRDS(pnds.RDS)
 		if (acknowledge) message("Data obtained from",src.descr)
 		if (show) print(datatable(pnd.data))
+		# update Death.toll for COVID-19 ongoing pandemic
+		c19.data <- covid19.data()
+		nameCol <- which(grepl(toupper("Name.of.Pandemic"),toupper(names(pnd.data)))) 
+		pnd.data[ pnd.data[,nameCol]=="CoViD-19","Death.toll"] <- sum(c19.data$Deaths)
 		return(pnd.data)
 	} else {
 		stop("CRITICAL Error:", tgt.file, " missing!")