IGFAE.AR2017.thesis.brew.render.R

#
start_time <- Sys.time()
#
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)
	}
#
thesisBrew <- gists[which(gists$filename == 'IGFAE.AR2017.thesis.brew.R'),c('raw_url')]
#
library(pander)
#
outputFormat <- 'odt'
outputFile = paste('IGFAEAR2017thesis', format(Sys.time(),"%Y%m%d%H%M%S"), '.', outputFormat, sep='')
#
Pandoc.brew(thesisBrew, output = outputFile, convert = outputFormat)
#
end_time <- Sys.time()
print(end_time - start_time)
#