instalaSeNecessarioECarrega <- function(x) {
       if (!require(x, character.only = TRUE)) {
           install.packages(x, dep=TRUE)
             if (!require(x, character.only = TRUE))
                   stop(paste("Package '", x, "' nao encontrada", sep=""))
         }
   }

instalaSeNecessarioECarrega("jsonlite")
instalaSeNecessarioECarrega("curl")
instalaSeNecessarioECarrega("dplyr")

protocolo = "http"
servidor = "graphics.wsj.com"
caminhoApi = "hillary-clinton-email-documents/api/search.php"
argsApi = "subject=&text=&to=&from=&start=&end=&sort=docDate&order=desc&docid=&limit=50000&offset=0"
url = paste(protocolo, "://", servidor, "/", caminhoApi, "?", argsApi, sep="")

ficheiroEmails = "clinton-emails.rda"
ficheiroTxt = "clinton-emails.xls"
if (!file.exists(ficheiroEmails)) {
  cat(url, "\n")
  cat("Obtendo dados do servidor remoto ...")
  clinton_emails <- fromJSON(url)$rows
  cat(", gravando", length(clinton_emails[[1]]), "registos no ficheiro", ficheiroEmails)
  save(clinton_emails, file = ficheiroEmails)
  cat(" e no ficheiro", ficheiroTxt, "que pode ser colado num ficheiro Excel\n")
  write.table(clinton_emails, file=ficheiroTxt, quote=FALSE, sep="\t")
}

load(ficheiroEmails)

# EXERCICIO 1:

library(jsonlite)
library(dplyr)
servidor = "http://graphics.wsj.com"
api = "hillary-clinton-email-documents/api/"
argsApi="sort=docDate&order=desc&limit=50000"
url = paste(servidor, "/", api, "search.php?", argsApi, sep="")
clinton_emails <- fromJSON(url)$rows