<- list("test@example.com", "colin@thinkr.fr", "vincent@thinkr.fr" lapply(query, FUN = function(x){ url <- paste("https://haveibeenpwned.com/api/v2/breachedaccount/",x, sep = fromJSON(url) }) > Error in open.connection(con, "rb") : HTTP error 429. 15 / 19