I hereby claim:
- I am ajaypillarisetti on github.
- I am ajayp (https://keybase.io/ajayp) on keybase.
- I have a public key whose fingerprint is CC9D 2311 287F EF61 7A20 D998 FE9F BDD1 C327 F67E
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
require(plyr) | |
require(lubridate) | |
############################################################# | |
# this is a combined routine to | |
# 1. resolve different date-time formats between files | |
# 2. convert F to C | |
# 3. export as RDS, CSV, or both (TSDB forthcoming) | |
# 4. create and update an error log | |
# It can toss all values in 1 file after a negative temp; | |
# that option is flaggable in the function. |
#globals | |
scenarios <- read.csv('scenarios.csv',stringsAsFactors=F)[1:4,] |
Global | |
http://s3.healthdata.org/gbd2013results/IHME-Data-Global-Deaths.zip | |
http://s3.healthdata.org/gbd2013results/IHME-Data-Global-DALYs.zip | |
http://s3.healthdata.org/gbd2013results/IHME-Data-Global-YLDs.zip | |
http://s3.healthdata.org/gbd2013results/IHME-Data-Global-YLLs.zip | |
Developing | |
http://s3.healthdata.org/gbd2013results/IHME-Data-Developing-Deaths.zip | |
http://s3.healthdata.org/gbd2013results/IHME-Data-Developing-DALYs.zip | |
http://s3.healthdata.org/gbd2013results/IHME-Data-Developing-YLDs.zip |
library(data.table) | |
library(plyr) | |
library(httr) | |
library(reshape2) | |
#specify the location to save download files | |
#pathToGBDDataStore <- "c:/path/to/main/dir" | |
pathToGBDDataStore <-'~/Desktop/gbd' |
library(data.table) | |
library(httr) | |
library(plyr) | |
library(tools) | |
#get data from web - don't run every time! | |
urls <- read.table('GBD_links.txt') | |
urls <- as.data.table(urls) | |
urls <- grep("http", urls$V1, value=T) |