remove antweb egs, #202

Author: sckott

R/antweb_helpers.R

@@ -17,7 +17,8 @@ aw_data2 <- function(genus = NULL, species = NULL, scientific_name = NULL,
     species <- strsplit(scientific_name, " ")[[1]][2]
   }
 
-  base_url <- "http://www.antweb.org"
+  # base_url <- "http://www.antweb.org"
+  base_url <- "http://api.antweb.org"
   original_limit <- limit
   args <- sc(as.list(c(genus = genus, species = species, bbox = bbox, 
                        min_elevation = min_elevation, 
@@ -26,7 +27,7 @@ aw_data2 <- function(genus = NULL, species = NULL, scientific_name = NULL,
                        min_date = min_date, max_date = max_date, limit = 1, 
                        offset = offset, georeferenced = georeferenced)))
   cli <- crul::HttpClient$new(url = base_url, opts = callopts)
-  out <- cli$get(path = "api/v2", query = args)
+  out <- cli$get(path = "v3.1/specimens", query = args)
   out$raise_for_status()
   data <- jsonlite::fromJSON(out$parse("UTF-8"), FALSE)
   data <- sc(data) # Remove NULL

R/inspect.R

@@ -24,8 +24,6 @@
 #' # from occkeys
 #' key <- as.gbif(res$key[1])
 #' inspect(key)
-#' key <- as.antweb("amsat-94817")
-#' inspect(key)
 #'
 #' # idigbio
 #' spnames <- c('Accipiter striatus', 'Spinus tristis')

R/occ2df.R

@@ -48,10 +48,6 @@
 #' spnames <- c('Accipiter striatus', 'Spinus tristis')
 #' out <- occ(query=spnames, from='gbif', limit=2)
 #' occ2df(out$gbif)
-#'
-#' spp <- c("Linepithema humile", "Crematogaster brasiliensis")
-#' out <- occ(query=spp, from='antweb', limit=2)
-#' occ2df(out$antweb)
 #' }
 occ2df <- function(obj, what = "data") {
   UseMethod("occ2df")