From: aaronshaw Date: Sat, 28 Mar 2020 22:30:37 +0000 (-0500) Subject: Loading data directly from github URL. Commenting out commands that assume cloned... X-Git-Url: https://code.communitydata.science/covid19.git/commitdiff_plain/9e0c92242eca7c433fc244a8e121bd8338c911f0?hp=-c Loading data directly from github URL. Commenting out commands that assume cloned repository. --- 9e0c92242eca7c433fc244a8e121bd8338c911f0 diff --git a/transliterations/analysis/related_searches_example.R b/transliterations/analysis/related_searches_example.R index 2576d4a..e1197b6 100644 --- a/transliterations/analysis/related_searches_example.R +++ b/transliterations/analysis/related_searches_example.R @@ -3,16 +3,24 @@ ### ### 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,