From 9e0c92242eca7c433fc244a8e121bd8338c911f0 Mon Sep 17 00:00:00 2001 From: aaronshaw Date: Sat, 28 Mar 2020 17:30:37 -0500 Subject: [PATCH] Loading data directly from github URL. Commenting out commands that assume cloned repository. --- .../analysis/related_searches_example.R | 20 +++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) 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, -- 2.39.5