#215 fix for capturing lat and lon params in inat data

Author: sckott

R/as.inat.R

@@ -22,12 +22,6 @@
 #' as.inat(tt[[1]])
 #' as.inat(uu[[1]])
 #' as.inat(tt[1:2])
-#'
-#' library("dplyr")
-#' bind_rows(lapply(tt, function(x) {
-#'   data.frame(x$taxon[c('id','name','rank','unique_name')],
-#'              stringsAsFactors = FALSE)
-#' }))
 #' }
 as.inat <- function(x, ...) UseMethod("as.inat")
 

R/inat.R

@@ -139,9 +139,8 @@ spocc_inat_handle <- function(x){
 }
 
 spocc_get_inat_obs_id <- function(id, callopts = list()) {
-  q_path <- paste("observations/", as.character(id), ".json", sep = "")
   cli <- crul::HttpClient$new(url = inat_base_url, opts = callopts)
-  res <- cli$get(path = q_path)
+  res <- cli$get(path = file.path(inat_path, as.character(id)))
   res$raise_for_status()
   jsonlite::fromJSON(res$parse("UTF-8"))
 }

R/plugins.r

@@ -266,6 +266,14 @@ foo_inat <- function(sources, query, limit, page, geometry, has_coords,
       res <- out$data
       res$prov <- rep("inat", nrow(res))
       res <- rename(res, c("taxon.name" = "name"))
+      # pull out lon/lat from geojson field
+      cds <- res$geojson.coordinates
+      lons <- sapply(cds, "[[", 1)
+      lons[vapply(lons, is.null, logical(1))] <- NA_character_
+      res$longitude <- unlist(lons)
+      lats <- sapply(cds, "[[", 2)
+      lats[vapply(lats, is.null, logical(1))] <- NA_character_
+      res$latitude <- unlist(lats)
       res <- stand_latlon(res)
       res <- add_latlong_if_missing(res)
       res <- stand_dates(res, "inat")

man-roxygen/occ_egs.R

@@ -6,7 +6,8 @@
 #' res$ecoengine
 #' (res <- occ(query = 'Accipiter striatus', from = 'ebird', limit = 50))
 #' res$ebird
-#' (res <- occ(query = 'Danaus plexippus', from = 'inat', limit = 50))
+#' (res <- occ(query = 'Danaus plexippus', from = 'inat', limit = 50,
+#'   has_coords = TRUE))
 #' res$inat
 #' res$inat$data
 #' data.table::rbindlist(res$inat$data$Danaus_plexippus$photos)