cater for mismatch in project's number of observations

ropensci · Feb 19, 2021 · c951fbd · c951fbd
1 parent 8b8002c
commit c951fbd
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: rinat
 Type: Package
 Title: Access 'iNaturalist' Data Through APIs
-Version: 0.1.6.9000
-Date: 2020-10-13
+Version: 0.1.7
+Date: 2021-02-19
 Authors@R: c(
     person("Vijay", "Barve", role = "aut", email = "[email protected]",
             comment = c(ORCID = "0000-0002-4852-2567")),

diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,6 @@
-# rinat 0.1.6.9000 (development version)
+# rinat 0.1.7
 
-* ...
+* Cater for a corner case in which a mismatch between a project's reported number of observations and the actual number of observations returned produced an error when merging data frames in `get_inat_obs_project()`
 
 # rinat 0.1.6
 

diff --git a/R/get_inat_obs_project.R b/R/get_inat_obs_project.R
@@ -71,6 +71,9 @@ get_inat_obs_project <- function(grpid, type = c("observations", "info"), raw =
       }
       obs_list[[i]] <-
         fromJSON(content(GET(url1), as = "text"), flatten = TRUE)
+      # break if < 200 rows, in case of mismatch between info and reality
+      # (problem has been observed)
+      if (nrow(obs_list[[i]]) != 200) break
     }
     project_obs <- do.call("rbind.fill", obs_list)
     return(project_obs)