Vérification de diplôme : Université Paris Dauphine

is.Dauphine.R

## Arthur Flam
## @ArthurFlam
## Ecole Centrale Paris, ex-Dauphine

## Vérifier si quelqu'un vient bien de Dauphine

library(RCurl)
library(rjson)
library(XML)

is.Dauphine = function(prenom, nom){
  # creating request
	params = list(firstname = prenom, lastname = nom)
	uri = "http://www.dauphine-alumni.org/taglib/sectionupdate/update?updatelist=content:action://addressbook/public-search/search"
	response = postForm(uri=uri, .params=params, .opts=list(encoding='UTF-8'))
	
	# parsing json response
	json = fromJSON(response)
	doc = htmlParse(json$content, encoding="UTF-8")
	
	# extracting and cleaning information
	out = unlist(xpathApply(doc, "//li", xmlValue))
	if(is.null(out)) return("Aucun diplômé trouvé")
	out = gsub(out, pattern="[\n|\t]",replacement="")
	gsub(out, pattern=" +",replacement=" ")
}

is.Dauphine("arthur","flam")