You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
if (likes&&n.likes>0) out[["likes"]] <- likesDataToDF(content$likes$data)
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:
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
The text was updated successfully, but these errors were encountered:
Rfacebook/Rfacebook/R/getPost.R
Line 127 in 173257e
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
The text was updated successfully, but these errors were encountered: