IGFAE.maps.R

#
library(gistr)
#
options(github.username='rrodrigueznt', digits=3, stringsAsFactors=F)
#
AllMyGists <- gists("mineall")
#
listl <- as.numeric(length(AllMyGists))
#
gists <- data.frame(
                      filename=character(),
                      id=character(),
                      raw_url = character(),
                      stringsAsFactors=FALSE
                      )
#
for (i in 1:listl)
	{
		filename <- AllMyGists[[i]][["files"]][[1]][["filename"]]
		id <-AllMyGists[[i]][["id"]]
		raw_url <- AllMyGists[[i]][["files"]][[1]][["raw_url"]]
		row <- c(filename, id, raw_url)
		names(gists) <- c("filename", "id", "raw_url")
		gists <- rbind(gists, row)
	}
#
IGFAEpartners <- gists[which(gists$filename == 'IGFAE.partnerships.txt'),c('raw_url')]
#
IGFAEpartnersData <- read.csv(IGFAEpartners, header=TRUE, sep="#", skip = 1)
#