pablobarbera / Rfacebook

Dev version of Rfacebook package: Access to Facebook API via R
http://cran.r-project.org/web/packages/Rfacebook
350 stars 250 forks source link

likesDataToDF(content$likes$data) #166

Open luanamarinho opened 6 years ago

luanamarinho commented 6 years ago

https://github.com/pablobarbera/Rfacebook/blob/173257eae1a9e3da23dc771a3ee2da324c9959ac/Rfacebook/R/getPost.R#L127

post <- c("211857482296579_979613545520965") n <- 500 -> n.likes -> n.comments -> n.reactions comments <- TRUE -> likes -> reactions api <- "v2.11"

Running the source code line by line with the arguments above (trying both a temporary user access and a long-lived access token - extended_permissions=TRUE), I keep getting:

if (likes && n.likes > 0) out[["likes"]] <- likesDataToDF(content$likes$data) out[["likes"]] #NULL

which will make n.l <- 0, according to: if (likes && n.likes > 0) n.l <- ifelse(!is.null(out$likes), dim(out$likes)[1], 0) (line 128)

which, in turn, will influence on further conditions such as: if (!is.null(url.likes) && likes && n.l > 0 && n.likes > n.l)) (line 158)

and thus preventing (I risk saying) retrieving a next batch of likes, for example. In any case, however, url <- content$likes$paging$`next content <- callAPI(url=url.likes, token=token, api=api) out[["likes"]] <- rbind(out[["likes"]], likesDataToDF(content$data)) out[["likes"]] #NULL