propagate locus name changes to docs and tests

R/LAGOSUS-package.R

@@ -67,7 +67,7 @@ lagosus_version <- function(){
 #'
 #' @eval c("@details", get_table_metadata("locus", "lake_information"))
 #'
-#' @name locus_information
+#' @name lake_information
 #' @docType data
 #' @keywords datasets
 NULL
@@ -81,7 +81,7 @@ NULL
 #'
 #' @eval c("@details", get_table_metadata("locus", "lake_characteristics"))
 #'
-#' @name locus_characteristics
+#' @name lake_characteristics
 #' @docType data
 #' @keywords datasets
 NULL
@@ -93,7 +93,7 @@ NULL
 #'
 #' @eval c("@details", get_table_metadata("locus", "lake_watersheds"))
 #'
-#' @name locus_watersheds
+#' @name lake_watersheds
 #' @docType data
 #' @keywords datasets
 #' @aliases watersheds
@@ -108,7 +108,7 @@ NULL
 #'
 #' @eval c("@details", get_table_metadata("locus", "lake_link"))
 #'
-#' @name locus_link
+#' @name lake_link
 #' @docType data
 #' @keywords datasets
 NULL
@@ -117,7 +117,7 @@ NULL
 #'
 #' @eval get_table_metadata("locus", "source_table_locus")
 #'
-#' @name locus_source
+#' @name source_table_locus
 #' @docType data
 #' @keywords datasets
 NULL

R/coordinates.R

@@ -13,7 +13,7 @@
 #' @export
 #' @examples \dontrun{
 #' dt <- lagosus_load("locus")
-#' res <- coordinatize(dt$locus$locus_information)
+#' res <- coordinatize(dt$locus$lake_information)
 #'
 #' library(maps)
 #' map("state", xlim = c(-97.90363, -66.99892), ylim = c(34.61761, 49.41941))

R/info.R

@@ -60,7 +60,7 @@ lake_info <- function(lagoslakeid = NA, name = NA, state = NA,
     suppressWarnings(
     name_state <- dplyr::left_join(
       name_state,
-      dplyr::select(lg$locus$locus_information, .data$lagoslakeid,
+      dplyr::select(lg$locus$lake_information, .data$lagoslakeid,
                     .data$lake_centroidstate, .data$lake_namegnis,
                     .data$state_zoneid),
                                by = "lagoslakeid"))
@@ -79,16 +79,16 @@ lake_info <- function(lagoslakeid = NA, name = NA, state = NA,
   }
 
   locus_state_conn <- suppressMessages(dplyr::left_join(
-    lg$locus$locus_information,
-    dplyr::select(lg$locus$locus_characteristics,
+    lg$locus$lake_information,
+    dplyr::select(lg$locus$lake_characteristics,
                   .data$lake_connectivity_permanent, .data$lagoslakeid,
                   .data$lake_totalarea_ha),
     by = c("lagoslakeid" = "lagoslakeid")
   ))
 
   locus_state_iws <- suppressMessages(dplyr::left_join(
     locus_state_conn,
-    dplyr::select(lg$locus$locus_watersheds,
+    dplyr::select(lg$locus$lake_watersheds,
                   .data$lagoslakeid, .data$ws_area_ha),
     by = c("lagoslakeid" = "lagoslakeid")
   ))

README.Rmd

@@ -84,7 +84,7 @@ names(lg)
 #### Preview a table
 
 ```{r preview table, eval=FALSE}
-head(lg$locus$locus_characteristics)
+head(lg$locus$lake_characteristics)
 ```
 
 #### Preview a specific lake

README.md

@@ -108,7 +108,7 @@ names(lg)
 #### Preview a table
 
 ``` r
-head(lg$locus$locus_characteristics)
+head(lg$locus$lake_characteristics)
 ```
 
 #### Preview a specific lake

data-raw/create_test_data.R

@@ -6,7 +6,7 @@ dt        <- LAGOSUS::lagosus_load(modules = c("locus", "depth"))
 
 # id 2 llids with non-missing chla data in two different states
 set.seed(5)
-llids <- dplyr::select(dt$locus$locus_information,
+llids <- dplyr::select(dt$locus$lake_information,
                        lake_centroidstate, lagoslakeid) %>%
   dplyr::filter(lake_centroidstate %in% c("MA", "IA")) %>%
   group_by(lake_centroidstate) %>%