2016-06-08 66 views
0

我一直在致力于一个项目,希望在过去的一年里从instagram帖子中取消instagram帖子和评论信息。尝试从instragram中删除信息的错误

我现在就开始使用一个简单的代码来从单个用户提取信息。

下面是代码:

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

app_name <- "Cognitive Model of the Customer" 
client_id <- "b03d4a910f0442b9bd1cd79fc06a086f" 
client_secret <- "c35f785784fa45cd9eaf786742ae9b3f" 
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) 
tmp <- strsplit(toString(names(ig_oauth$credentials)), '"') 
token <- tmp[[1]][4] 
library(jsonlite) 
library(RCurl) 
user_info <- fromJSON(getURL(paste('https://api.instagram.com/v1/users/search? q=',"newbalance",'&access_token=',token,sep="")),unexpected.escape = "keep") 

我收到的错误是

Error in simplify(obj, simplifyVector = simplifyVector, simplifyDataFrame =  simplifyDataFrame, : 
    unused argument (unexpected.escape = "keep") 

我不知道我明白的地方这个错误来自不过。

+1

它来自您的最后一行。您将'unexpected.escape =“keep”'参数传递给JSON – tmpname12345

+0

可以通过什么来修复错误?我需要那条线,对吧? –

回答

0

在运行代码之前,您应该加载基本包。
请加载此包装然后运行您的代码:
库(rjson)