Update mx_api.R

Fix bug: change count result to numeric
ropensci · May 3, 2024 · 027aa19 · 027aa19
1 parent 73ad971
commit 027aa19
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/mx_api.R b/R/mx_api.R
@@ -59,7 +59,7 @@ mx_api_content <- function(from_date = "2013-01-01",
 
   details <- api_to_df(details_link)
 
-  count <- details$messages[1, 6]
+  count <- as.numeric(details$messages[1, 6])
   pages <- floor(count / 100)
 
   message("Estimated total number of records as per API metadata: ", count)