From 0f6ca888b47c951f409e001d654025c44b0ec21a Mon Sep 17 00:00:00 2001
From: Aaron Rudkin <junk_signups@rudkin.ca>
Date: Wed, 6 Mar 2019 23:14:13 -0800
Subject: [PATCH] Changed direct access of next_cursor attribute in
 get_friends_ return to next_cursor method, solves #318

---
 R/friends.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/friends.R b/R/friends.R
index dd9ec2d0..d8497abc 100644
--- a/R/friends.R
+++ b/R/friends.R
@@ -162,7 +162,7 @@ get_friends_ <- function(users,
         if (length(f[[i]][["ids"]]) == 0) {
           f[[i]] <- tibble::as_tibble()
         } else {
-          nextcursor <- f[["next_cursor"]]
+          nextcursor <- next_cursor(f)
           f[[i]] <- tibble::as_tibble(
             list(user = users[[i]], user_id = f[[i]][["ids"]]))
           attr(f[[i]], "next_cursor") <- nextcursor
@@ -203,7 +203,7 @@ get_friends_ <- function(users,
         warning(f$errors[["message"]], call. = FALSE)
         return(list(data.frame()))
       } else if (parse) {
-        nextcursor <- f[["next_cursor"]]
+        nextcursor <- next_cursor(f)
         if (length(f[["ids"]]) == 0) {
           f <- tibble::as_tibble()
         } else {