convert from NE to US, pass checks

NAMESPACE

@@ -1,12 +1,12 @@
 # Generated by roxygen2: do not edit by hand
 
 export(gh_file)
-export(lagosnegis_get)
 export(lagosusgis_path)
 export(query_gis)
 export(query_gis_)
+export(query_lake_poly)
 export(query_wbd)
-importFrom(LAGOSNE,lagosne_version)
+importFrom(LAGOSUS,lagosus_version)
 importFrom(base64enc,base64decode)
 importFrom(curl,curl_fetch_memory)
 importFrom(dplyr,mutate)

R/LAGOSNEgis-package.R

@@ -1,5 +1,5 @@
 #' @importFrom rappdirs user_data_dir
-#' @importFrom LAGOSNE lagosne_version
+#' @importFrom LAGOSUS lagosus_version
 #' @keywords internal
 "_PACKAGE"
 

R/get.R

@@ -2,7 +2,6 @@
 #'
 #' Get data from the GIS module of LAGOSNE
 #'
-#' @export
 #' @importFrom utils unzip download.file
 #' @importFrom gdalUtilities ogr2ogr
 #' @param dest_folder file.path defaults to lagosnegis_path()
@@ -17,7 +16,7 @@
 #' @examples \dontrun{
 #' lagosnegis_get()
 #' }
-lagosnegis_get <- function(dest_folder = lagosnegis_dir(), overwrite = FALSE){
+lagosnegis_get <- function(dest_folder = lagosusgis_dir(), overwrite = FALSE){
   # dest_folder <- LAGOSNEgis:::lagosnegis_path()
   outpath <- file.path(dest_folder, "lagos-ne_gis.gpkg")
   dest_gdb <- file.path(dest_folder, "LAGOS_NE_GIS_Data_v1.0.gdb")

R/utils.R

@@ -3,14 +3,14 @@ albers_conic <- function(){
   "+proj=aea +lat_1=29.5 +lat_2=45.5 +lat_0=23 +lon_0=-96 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs"
 }
 
-#' Get the path to LAGOSNEgis data
+#' Get the path to LAGOSUSgis data
 #'
 #' @export
 lagosusgis_path <- function(){
   file.path(rappdirs::user_data_dir("LAGOS-GIS"), "LAGOS_US_GIS_Data_v0.6.gdb")
 }
 
-lagosnegis_dir <- function(){
+lagosusgis_dir <- function(){
   rappdirs::user_data_dir("LAGOS-GIS")
 }
 

R/zzz.R

@@ -4,8 +4,9 @@
   }
 }
 
-.onLoad <- function(pkgname, libname) {
+.onLoad <- function(libname, pkgname) {
   query_wbd  <<- memoise::memoise(query_wbd)
   query_gis  <<- memoise::memoise(query_gis)
   query_gis_ <<- memoise::memoise(query_gis_)
+  query_lake_poly <<- memoise::memoise(query_lake_poly)
 }

data-raw/subset.R

@@ -1,9 +1,9 @@
-library(LAGOSNEgis)
+library(LAGOSUSgis)
 llid <- 34352
 
-res_iws  <- query_gis("IWS", "lagoslakeid", llid)
-res_lake <- query_gis("LAGOS_NE_All_Lakes_4ha", "lagoslakeid", llid)
-res_pnt  <- query_gis("LAGOS_NE_All_Lakes_4ha_POINTS", "lagoslakeid", llid)
+res_iws  <- query_gis("ws", "lagoslakeid", llid)
+res_lake <- query_gis("LAGOS_US_All_Lakes_1ha", "lagoslakeid", llid)
+res_pnt  <- query_gis("LAGOS_US_All_Lakes_1ha_POINTS", "lagoslakeid", llid)
 
 gis_34352 <- list(res_iws = res_iws, res_lake = res_lake, res_pnt = res_pnt)
 use_data(gis_34352, overwrite = TRUE)

vignettes/using-lagosnegis.Rmd → vignettes/using-lagosusgis.Rmd

@@ -1,10 +1,10 @@
 ---
-title: "Using LAGOSNEgis"
+title: "Using LAGOSUSgis"
 author: "Joseph Stachelek"
 date: "`r Sys.Date()`"
 output: rmarkdown::html_vignette
 vignette: >
-  %\VignetteIndexEntry{Using LAGOSNEgis}
+  %\VignetteIndexEntry{Using LAGOSUSgis}
   %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
 ---
@@ -17,13 +17,13 @@ knitr::opts_chunk$set(
 ```
 
 ```{r message=FALSE, warning=FALSE, eval=FALSE}
-library(LAGOSNEgis)
+library(LAGOSUSgis)
 library(sf)
 library(ggplot2)
 
-res_iws  <- query_gis("IWS", "lagoslakeid", c(34352))
-res_lake <- query_gis("LAGOS_NE_All_Lakes_4ha", "lagoslakeid", 34352)
-res_pnt  <- query_gis("LAGOS_NE_All_Lakes_4ha_POINTS", "lagoslakeid", 34352)
+res_iws  <- query_gis("ws", "lagoslakeid", c(34352))
+res_lake <- query_gis("LAGOS_US_All_Lakes_1ha", "lagoslakeid", 34352)
+res_pnt  <- query_gis("LAGOS_US_All_Lakes_1ha_POINTS", "lagoslakeid", 34352)
 
 ggplot() + 
   geom_sf(data = res_iws, color = "darkgreen") + 
@@ -32,7 +32,7 @@ ggplot() +
 ```
 
 ```{r echo=FALSE, message=FALSE, warning=FALSE}
-library(LAGOSNEgis)
+library(LAGOSUSgis)
 library(sf)
 library(ggplot2)