Erreur dans l'exécution de l'exemple Instagram de R-Bloggers ?

Question

J'obtiens une erreur en exécutant l'exemple de requête R Instagram ici : https://www.r-bloggers.com/analyze-instagram-with-r/

Je suppose que cela a quelque chose à voir avec mon client Instagram (le statut est "Sandbox Mode"), mais je ne sais pas trop quoi faire. Voici le code R et la sortie :

Code :

require(RCurl)
require(httr)
full_url <- oauth_callback()
full_url <- gsub("(.*localhost:[0-9]{1,5}/).*", x=full_url, replacement="\1")
print(full_url)

app_name <- "teamusainrio"
client_id <- "a36424058cdf424c8e8b2d5cc2af1b15"
client_secret <- "398863caad6a4171ad10eb201870065b"
scope = "basic"

instagram <- oauth_endpoint(
  authorize = "https://api.instagram.com/oauth/authorize",
  access = "https://api.instagram.com/oauth/access_token")
myapp <- oauth_app(app_name, client_id, client_secret)

ig_oauth <- oauth2.0_token(instagram, myapp,scope="basic",  type = "application/x-www-form-urlencoded",cache=FALSE)

Sortie :

Waiting for authentication in browser...
Press Esc/Ctrl + C to abort
Authentication complete.

Entrée :

tmp <- strsplit(toString(names(ig_oauth$credentials)), '"')
token <- tmp[[1]][4]
username <- "therock"
user_info <- fromJSON(getURL(paste('https://api.instagram.com/v1/users/search?q=',username,'&access_token=',token,sep="")),unexpected.escape = "keep")
received_profile <- user_info$data[[1]]

Sortie/erreur :

Error in user_info$data[[1]] : subscript out of bounds

Si j'exécute la requête du code ci-dessus directement dans mon navigateur,

https://api.instagram.com/v1/users/search?q=therock&access_token=511932783.a364240.562161d569354bf78b043c98cf938235

Je reçois le message suivant :

{"meta": {"code": 200}, "data": []}

Answer 1

Si je ne suis pas en retard... je pense que ce post de stackoverflow devrait m'aider. " L'API d'Instagram ne trouve pas de posts aimés pour les utilisateurs du bac à sable "