df <- read.csv ('https://raw.githubusercontent.com/ulklc/covid19-
timeseries/master/countryReport/raw/rawReport.csv',
stringsAsFactors = FALSE)
yesterday <- function() Sys.Date() - 1L
yesterday()
# [1] "if it doesn't work yesterday()-1 do it"
# data set has not been updated for a few days.
活动日；
最
已恢复
死亡
已确认
查找报告国家/地区（注意：25.4.2020数据将用于活动日，例如25.4.2020）
作为输出；
day countryName death
2020/05/09 United State 7800
day countryName recovered
2020/05/09 Spain 14500
day countryName confirmed
2020/05/09 İran 3654
数据就是例子。不是真实的。
