#214 attempting to return photos data in inat results

Author: sckott

DESCRIPTION

@@ -8,7 +8,7 @@ Description: A programmatic interface to many species occurrence data sources,
     System ('OBIS'), and Atlas of Living Australia ('ALA'). Includes
     functionality for retrieving species occurrence data, and combining
     those data.
-Version: 0.9.0.9310
+Version: 0.9.0.9311
 License: MIT + file LICENSE
 Authors@R: 
     c(person(given = "Scott",

R/inat.R

@@ -1,7 +1,6 @@
 spocc_inat_obs <- function(query=NULL, taxon = NULL, quality=NULL, geo=TRUE, 
-                           year=NULL, month=NULL, day=NULL, bounds=NULL, 
-                           date_start = NULL, date_end = NULL,
-                           maxresults=100, page=NULL, callopts) {
+  year=NULL, month=NULL, day=NULL, bounds=NULL, date_start = NULL,
+  date_end = NULL, maxresults=100, page=NULL, callopts) {
 
   # input parameter checks
   if (!is.null(quality)) quality <- match.arg(quality, c("casual","research"))
@@ -76,11 +75,12 @@ spocc_inat_obs <- function(query=NULL, taxon = NULL, quality=NULL, geo=TRUE,
            call. = FALSE)
     }
 
+    # photos_con <- list()
     page_query <- c(args, per_page = 200, page = 1)
     data <- cli$get(path = ping_path, query = page_query)
     data <- spocc_inat_handle(data)
     data_out <- jsonlite::fromJSON(data, flatten = TRUE)
-    data_out$photos <- NULL
+    # data_out$photos <- NULL
     data_out$tag_list <- sapply(data_out$tag_list, function(x) {
       if (length(x) == 0) "" else paste0(x, collapse = ", ")
     })
@@ -92,7 +92,7 @@ spocc_inat_obs <- function(query=NULL, taxon = NULL, quality=NULL, geo=TRUE,
         data <- cli$get(path = ping_path, query = page_query)
         data <- spocc_inat_handle(data)
         data_out2 <- jsonlite::fromJSON(data, flatten = TRUE)
-        data_out2$photos <- NULL
+        # data_out2$photos <- NULL
         data_out2$tag_list <- sapply(data_out2$tag_list, function(x) {
           if (length(x) == 0) "" else paste0(x, collapse = ", ")
         })

man-roxygen/occ_egs.R

@@ -8,6 +8,8 @@
 #' res$ebird
 #' (res <- occ(query = 'Danaus plexippus', from = 'inat', limit = 50))
 #' res$inat
+#' res$inat$data
+#' data.table::rbindlist(res$inat$data$Danaus_plexippus$photos)
 #' (res <- occ(query = 'Bison bison', from = 'bison', limit = 50))
 #' res$bison
 #' (res <- occ(query = 'Bison bison', from = 'vertnet', limit = 5))
@@ -21,7 +23,6 @@
 #' one$gbif
 #' two$gbif
 #' 
-#' 
 #' # Date range searches across data sources
 #' ## Not possible for ebird
 #' ## bison