fix to precision issue for long integer output to character in parsed…

… requests, #106

DESCRIPTION

@@ -2,7 +2,7 @@ Package: rStrava
 Type: Package
 Title: Access the 'Strava' API
 Version: 1.3.1.9000
-Date: 2024-10-09
+Date: 2024-10-22
 Description: Functions to access data from the 'Strava v3 API' <https://developers.strava.com/>.
 BugReports: https://github.com/fawda123/rStrava/issues
 License: CC0
@@ -13,6 +13,7 @@ Imports:
     ggspatial,
     googleway,
     httr,
+    jsonlite,
     magrittr,
 		maptiles,
     RCurl,

R/get_activity.R

@@ -33,7 +33,8 @@ get_activity <- function(id, stoken){
 
 	req <- GET(url_activities(id), stoken, query = list(include_all_efforts=TRUE)) 
 	stop_for_status(req)
-	dataRaw <- content(req)
+	dataRaw <- content(req, as = 'text', encoding = 'UTF-8')
+	dataRaw <- jsonlite::fromJSON(dataRaw, simplifyVector = FALSE, bigint_as_char = TRUE)
 	return(dataRaw)
 
 }

R/get_leaderboard.R

@@ -3,7 +3,7 @@
 #' Retrieve the leaderboard of a segment
 #'
 #' @param stoken A \code{\link[httr]{config}} object created using the \code{\link{strava_oauth}} function
-#' @param id charcater for id of the segment
+#' @param id character for id of the segment
 #' @param nleaders numeric for number of leaders to retrieve
 #' @param All logical to retrieve all of the list
 #' 

R/get_pages.R

@@ -66,7 +66,8 @@ get_pages<-function(url_, stoken, per_page = 30, page_id = 1, page_max = 1, befo
 		if(chk_lead){
 
 			req <- GET(url_, stoken, query = c(list(per_page=pmin(200, per_page), page=i), queries))
-			cont_req <- content(req)$entries
+			cont_req <- content(req, as = 'text', encoding = 'UTF-8')
+			cont_req <- jsonlite::fromJSON(cont_req, simplifyVector = FALSE, bigint_as_char = TRUE)$entries
 
 			if(length(cont_req) == 200){
 				per_page <- per_page - length(cont_req)
@@ -76,9 +77,10 @@ get_pages<-function(url_, stoken, per_page = 30, page_id = 1, page_max = 1, befo
 			if(per_page == 0) page_max <- i
 
 		} else {
-			
+
 			req <- GET(url_, stoken, query = c(list(per_page=per_page, page=i, before=before, after=after), queries))
-			cont_req <- content(req)
+			cont_req <- content(req, as = 'text', encoding = 'UTF-8')
+			cont_req <- jsonlite::fromJSON(cont_req, simplifyVector = FALSE, bigint_as_char = TRUE)
 
 		}
 

R/get_streams.R

@@ -47,7 +47,8 @@ get_streams  <- function(stoken, id, request = "activities",
 						 query = list(resolution = resolution, series_type = series_type))
 	ratelimit(req)
 	stop_for_status(req)
-	dataRaw <- content(req)
+	dataRaw <- content(req, as = 'text', encoding = 'UTF-8')
+	dataRaw <- jsonlite::fromJSON(dataRaw, simplifyVector = FALSE, bigint_as_char = TRUE)
 
 	return(dataRaw)