"term","date","query.1","query.2","query.3","query.4","query.5"
-"coronavirus","2020-03-27",coronavirus update,corona,coronavirus symptoms,news coronavirus,coronavirus cases
-"covid-19","2020-03-27",covid-19 coronavirus,coronavirus,covid,covid-19 cases,covid 19
-"covid-19 pandemic","2020-03-27",coronavirus,covid-19 coronavirus pandemic,coronavirus pandemic,who,is covid-19 a pandemic
-"covid19","2020-03-27",covid,covid 19,coronavirus covid19,coronavirus,covid19 cases
-"sars-cov-2","2020-03-27",coronavirus,coronavirus sars-cov-2,covid-19,covid-19 sars-cov-2,sars
+"coronavirus",2020-03-27,coronavirus update,corona,coronavirus symptoms,news coronavirus,coronavirus cases
+"covid-19",2020-03-27,covid-19 coronavirus,coronavirus,covid,covid-19 cases,covid 19
+"covid-19 pandemic",2020-03-27,coronavirus,covid-19 coronavirus pandemic,coronavirus pandemic,who,is covid-19 a pandemic
+"covid19",2020-03-27,covid,covid 19,coronavirus covid19,coronavirus,covid19 cases
+"sars-cov-2",2020-03-27,coronavirus,coronavirus sars-cov-2,covid-19,covid-19 sars-cov-2,sars
+"coronavirus",2020-03-28,coronavirus update,corona,coronavirus symptoms,news coronavirus,coronavirus cases
+"covid-19",2020-03-28,coronavirus,coronavirus covid-19,covid,covid-19 cases,covid 19
+"covid-19 pandemic",2020-03-28,coronavirus pandemic,coronavirus,covid-19 coronavirus pandemic,is covid-19 a pandemic,who pandemic
+"covid19",2020-03-28,covid,covid 19,coronavirus covid19,coronavirus,covid19 cases
+"sars-cov-2",2020-03-28,coronavirus sars-cov-2,coronavirus,sars-cov-2 covid-19,covid-19,sars
###
### Minimal example analysis file using trending search data
-### Identify data source directory and file
-DataDir <- ("../data/output/")
-DataFile <- ("related_searches_top.csv")
-
### Import and cleanup data
-related.searches.top <- read.table(paste(DataDir,DataFile,
- sep=""),
+
+DataURL <-
+ url("https://github.com/CommunityDataScienceCollective/COVID-19_Digital_Observatory/blob/master/transliterations/data/output/related_searches_top.csv")
+
+related.searches.top <- read.table(DataURL,
sep=",", header=TRUE,
stringsAsFactors=FALSE)
+### Alternatively, uncomment and run if working locally with full git tree
+### Identify data source directory and file
+## DataDir <- ("../data/output/")
+## DataFile <- ("related_searches_top.csv")
+
+## related.searches.top <- read.table(paste(DataDir,DataFile, sep=""),
+## sep=",", header=TRUE,
+## stringsAsFactors=FALSE)
+
### Aggregate top 5 search queries by term/day
top5.per.term.date <- aggregate(query ~ term + date,
data=related.searches.top,