Skip to content

Instantly share code, notes, and snippets.

@josefslerka

josefslerka/instagram.R

Last active August 29, 2015 14:21
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 josefslerka/1b746dd75ebc1dff3946 to your computer and use it in GitHub Desktop.
Save josefslerka/1b746dd75ebc1dff3946 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
instagram.R
require(httr)
full_url <- oauth_callback()
full_url <- gsub("(.*localhost:[0-9]{1,5}/).*", x=full_url, replacement="\\1")
print(full_url)
library(instaR)
app_id <- ""
app_secret <- ""
token <- instaOAuth(app_id, app_secret)
repost <- searchInstagram("repost", token, n=100, folder="repost")
write.csv(repost, "fotkyrepostu.csv")
stunome <- searchInstagram(lat=33.450065, lng=43.278427, distance=1000, token=token, n=100, folder="stunome")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment