R functions to use the RIPEStat API

RRIPEstat

library("jsonlite")

# Function that returns the country code of a IP address
geoloc<-function(x){
return(fromJSON(paste0("https://stat.ripe.net/data/geoloc/data.json?resource=",x))$data$locations$country)
}

# Function that returns the ASN of a IP address
getasn<-function(x){
return(fromJSON(paste0("https://stat.ripe.net/data/network-info/data.json?resource=",x))$data$asns[1])
}