Skip to content

Instantly share code, notes, and snippets.

@hadley

hadley/linkedin.r

Created July 31, 2014 19:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hadley/7132543b961de45ad360 to your computer and use it in GitHub Desktop.
Save hadley/7132543b961de45ad360 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
linkedin.r
library(httr)
library(jsonlite)
find_endorsements <- function(x) {
r <- GET("https://www.linkedin.com/ta/skill" ,query = list(query = x))
stop_for_status(r)
json <- content(r, "parsed")
vapply(json$resultList, "[[", "displayName", FUN.VALUE = character(1))
}
endorsements("beer")
@jaeddy
Copy link

jaeddy commented Jul 31, 2014

find_endorsements("beer")?

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment