switch from %>% to |> + 2025 taxonomy update

Author: mstrimas

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: auk
 Title: eBird Data Extraction and Processing in R
-Version: 0.8.2
+Version: 0.9.0
 Authors@R: 
     c(person(given = "Matthew",
              family = "Strimas-Mackey",
@@ -28,7 +28,7 @@ URL: https://cornelllabofornithology.github.io/auk/
 BugReports: 
     https://github.com/CornellLabofOrnithology/auk/issues
 Depends: 
-    R (>= 3.5)
+    R (>= 4.1.0)
 Imports: 
     assertthat,
     countrycode (>= 1.0.0),
@@ -53,4 +53,4 @@ VignetteBuilder:
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

NEWS.md

@@ -1,3 +1,7 @@
+# auk 0.9.0
+
+- update to align with the 2025 taxonomy update
+
 # auk 0.8.2
 
 - handle changes to project names resulting from release of eBird Projects

R/auk-bbox.R

@@ -22,8 +22,8 @@
 #' @family filter
 #' @examples
 #' # fliter to locations roughly in the Pacific Northwest
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_bbox(bbox = c(-125, 37, -120, 52))
 #'   
 #' # alternatively, without pipes
@@ -84,8 +84,8 @@ auk_bbox.auk_sampling <- function(x, bbox) {
 #' @family filter
 #' @examples
 #' # fliter to locations roughly in the Pacific Northwest
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_bbox(bbox = c(-125, 37, -120, 52))
 #'   
 #' # alternatively, without pipes

R/auk-bcr.R

@@ -25,8 +25,8 @@
 #' @examples
 #' # bcr codes can be looked up in bcr_codes
 #' dplyr::filter(bcr_codes, bcr_name == "Central Hardwoods")
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_bcr(bcr = 24)
 #'   
 #' # filter to bcr 24

R/auk-breeding.R

@@ -13,8 +13,8 @@
 #' @export
 #' @family filter
 #' @examples
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_breeding()
 auk_breeding <- function(x)  {
   UseMethod("auk_breeding")

R/auk-complete.R

@@ -17,8 +17,8 @@
 #' @export
 #' @family filter
 #' @examples
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_complete()
 auk_complete <- function(x)  {
   UseMethod("auk_complete")

R/auk-country.R

@@ -26,8 +26,8 @@
 #' # country names and ISO2 codes can be mixed
 #' # not case sensitive
 #' country <- c("CA", "United States", "mexico")
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_country(country)
 #'   
 #' # alternatively, without pipes

R/auk-county.R

@@ -29,8 +29,8 @@
 #' @family filter
 #' @examples
 #' # choose tompkins county, ny, united states
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_county("US-NY-109")
 #'   
 #' # alternatively, without pipes

R/auk-date.R

@@ -24,23 +24,23 @@
 #' @export
 #' @family filter
 #' @examples
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_date(date = c("2010-01-01", "2010-12-31"))
 #'   
 #' # alternatively, without pipes
 #' ebd <- auk_ebd(system.file("extdata/ebd-sample.txt", package = "auk"))
 #' auk_date(ebd, date = c("2010-01-01", "2010-12-31"))
 #' 
 #' # the * wildcard can be used in place of year to select dates from all years
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   # may-june records from all years
 #'   auk_date(date = c("*-05-01", "*-06-30"))
 #'   
 #' # dates can also wrap around the end of the year
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   # dec-jan records from all years
 #'   auk_date(date = c("*-12-01", "*-01-31"))
 auk_date <- function(x, date)  {

R/auk-distance.R

@@ -24,8 +24,8 @@
 #' @family filter
 #' @examples
 #' # only keep checklists that are less than 10 km long
-#' system.file("extdata/ebd-sample.txt", package = "auk") %>%
-#'   auk_ebd() %>%
+#' system.file("extdata/ebd-sample.txt", package = "auk") |>
+#'   auk_ebd() |>
 #'   auk_distance(distance = c(0, 10))
 #'   
 #' # alternatively, without pipes