TxWRI · mps9506 · Oct 30, 2025 · Oct 29, 2025 · Oct 29, 2025 · Oct 29, 2025
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -2,3 +2,4 @@
 ^\.Rproj\.user$
 ^LICENSE\.md$
 ^README\.Rmd$
+^\.github$
diff --git a/.github/.gitignore b/.github/.gitignore
@@ -0,0 +1 @@
+*.html
diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
@@ -0,0 +1,53 @@
+# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
+# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+
+name: R-CMD-check.yaml
+
+permissions: read-all
+
+jobs:
+  R-CMD-check:
+    runs-on: ${{ matrix.config.os }}
+
+    name: ${{ matrix.config.os }} (${{ matrix.config.r }})
+
+    strategy:
+      fail-fast: false
+      matrix:
+        config:
+          - {os: macos-latest,   r: 'release'}
+          - {os: windows-latest, r: 'release'}
+          - {os: ubuntu-latest,   r: 'devel', http-user-agent: 'release'}
+          - {os: ubuntu-latest,   r: 'release'}
+          - {os: ubuntu-latest,   r: 'oldrel-1'}
+
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+      R_KEEP_PKG_SOURCE: yes
+
+    steps:
+      - uses: actions/checkout@v4
+
+      - uses: r-lib/actions/setup-pandoc@v2
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          r-version: ${{ matrix.config.r }}
+          http-user-agent: ${{ matrix.config.http-user-agent }}
+          use-public-rspm: true
+          extra-repositories: 'https://txwri.r-universe.dev'
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::rcmdcheck
+          needs: check
+      - run: Rscript -e 'whitebox::install_whitebox()'
+
+      - uses: r-lib/actions/check-r-package@v2
+        with:
+          upload-snapshots: true
+          build_args: 'c("--no-manual","--compact-vignettes=gs+qpdf")'
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: SELECTRshed
 Type: Package
 Title: Catchment and Subcatchment Delineation
-Version: 0.1.0
+Version: 0.1.1
 Authors@R: 
     person(given = "Michael", family = "Schramm", email = "mpschramm@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-1876-6592"))

diff --git a/NEWS.md b/NEWS.md
@@ -0,0 +1,11 @@
+# SELECTRshed 0.1.1
+
+## Minor changes
+
+* add tests
+* add additional checks for SpatVectors, valid `wbt_results` and terra object.
+* add CI infrastructure
+
+# SELECTRshed 0.1.0
+
+* Initial release.
diff --git a/R/create_D8_.R b/R/create_D8_.R
@@ -14,7 +14,7 @@
 #' @export
 #' @examplesIf whitebox::check_whitebox_binary()
 #' # example code
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' create_d8_pointer(dem)
 #'
@@ -27,7 +27,7 @@ create_d8_pointer <- function(dem,
 
   ## need to check whitebox tools is installed
   whitebox_bin()
-  
+
   ## check args
   # dem should be terra obj, does not have to be file backed object since {whitebox} takes care of that when using `wbt()`
   # output should be valid file path
@@ -77,7 +77,7 @@ create_d8_pointer <- function(dem,
 #' @export
 #' @examplesIf whitebox::check_whitebox_binary()
 #' # example code
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' D8pointer <- create_d8_pointer(dem)
 #' create_d8_fa(D8pointer)

diff --git a/R/create_breach_depression_.R b/R/create_breach_depression_.R
@@ -81,7 +81,7 @@ create_breach_depression_lc <- function(dem,
 #' @return A SpatRaster object.
 #' @export
 #' @examplesIf whitebox::check_whitebox_binary()
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' create_breach_depression(dem)
 #'

diff --git a/R/create_fill_depressions.R b/R/create_fill_depressions.R
@@ -17,7 +17,7 @@
 #'
 #' @examplesIf whitebox::check_whitebox_binary()
 #' # example code
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' create_fill_depressions(dem)
 #'

diff --git a/R/create_single_pit_fill.R b/R/create_single_pit_fill.R
@@ -10,7 +10,7 @@
 #' @return A SpatRaster object
 #' @export
 #' @examplesIf whitebox::check_whitebox_binary()
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' create_single_pit_fill(dem)
 create_single_pit_fill <- function(dem,

diff --git a/R/create_streams.R b/R/create_streams.R
@@ -16,7 +16,7 @@
 #' @export
 #' @examplesIf whitebox::check_whitebox_binary()
 #' # example code
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' D8pointer <- create_d8_pointer(dem)
 #' D8fa <- create_d8_fa(D8pointer)

diff --git a/R/create_streams_vector.R b/R/create_streams_vector.R
@@ -17,7 +17,7 @@
 #' @export
 #' @examplesIf whitebox::check_whitebox_binary()
 #' # example code
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' D8pointer <- create_d8_pointer(dem)
 #' D8fa <- create_d8_fa(D8pointer)

diff --git a/R/create_subbasins.R b/R/create_subbasins.R
@@ -12,7 +12,7 @@
 #' @return SpatRaster
 #' @export
 #' @examplesIf whitebox::check_whitebox_binary()
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' D8pointer <- create_d8_pointer(dem)
 #' D8fa <- create_d8_fa(D8pointer)

diff --git a/R/create_watershed.R b/R/create_watershed.R
@@ -13,7 +13,7 @@
 #' @return A SpatRaster or wbt_result object.
 #' @export
 #' @examplesIf whitebox::check_whitebox_binary()
-#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+#' dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
 #' dem <- terra::rast(dem)
 #' gpkg <- system.file("extdata", "thompsoncreek.gpkg", package = "SELECTRdata")
 #' pourpoint <- terra::vect(gpkg, layer = "pourpoint", crs = terra::crs(dem))

diff --git a/README.Rmd b/README.Rmd
@@ -18,6 +18,7 @@ knitr::opts_chunk$set(
 
 <!-- badges: start -->
 [![](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)
+[![R-CMD-check](https://github.com/TxWRI/SELECTRshed/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/TxWRI/SELECTRshed/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->
 
 Delineate watersheds using whitebox tools and terra objects.

diff --git a/README.md b/README.md
@@ -6,6 +6,7 @@
 <!-- badges: start -->
 
 [![](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)
+[![R-CMD-check](https://github.com/TxWRI/SELECTRshed/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/TxWRI/SELECTRshed/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->
 
 Delineate watersheds using whitebox tools and terra objects. These

diff --git a/man/create_D8_fa.Rd b/man/create_D8_fa.Rd
diff --git a/man/create_breach_depression.Rd b/man/create_breach_depression.Rd
diff --git a/man/create_d8_pointer.Rd b/man/create_d8_pointer.Rd
diff --git a/man/create_fill_depressions.Rd b/man/create_fill_depressions.Rd
diff --git a/man/create_single_pit_fill.Rd b/man/create_single_pit_fill.Rd
diff --git a/man/create_streams.Rd b/man/create_streams.Rd
diff --git a/man/create_streams_vector.Rd b/man/create_streams_vector.Rd
diff --git a/man/create_subbasins.Rd b/man/create_subbasins.Rd
diff --git a/man/create_watershed.Rd b/man/create_watershed.Rd
diff --git a/tests/testthat/test-create_D8.R b/tests/testthat/test-create_D8.R
@@ -1,5 +1,6 @@
 test_that("create_d8_* returns expected types", {
   testthat::skip_on_cran()
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
   dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   breached <- create_breach_depression_lc(dem, dist = 10)

diff --git a/tests/testthat/test-create_breach_depression_.R b/tests/testthat/test-create_breach_depression_.R
@@ -1,5 +1,6 @@
 test_that("create_breach_depression_lc returns expected types", {
   testthat::skip_on_cran()
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
   dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   breached <- create_breach_depression_lc(dem, dist = 10)
@@ -15,6 +16,7 @@ test_that("create_breach_depression_lc returns expected types", {
 
 test_that("create_breach_depression returns expected types", {
   testthat::skip_on_cran()
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
   dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   breached <- create_breach_depression(dem)

diff --git a/tests/testthat/test-create_fill_depressions.R b/tests/testthat/test-create_fill_depressions.R
@@ -1,5 +1,6 @@
 test_that("create_fill_depressions returns expected types", {
   testthat::skip_on_cran()
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
   dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   x <- create_fill_depressions(dem)

diff --git a/tests/testthat/test-create_single_pit_fill.R b/tests/testthat/test-create_single_pit_fill.R
@@ -1,5 +1,6 @@
 test_that("create_single_pit_fill returns expected types", {
   testthat::skip_on_cran()
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
   dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   x <- create_single_pit_fill(dem)

diff --git a/tests/testthat/test-create_streams_.R b/tests/testthat/test-create_streams_.R
@@ -1,6 +1,7 @@
 test_that("create_streams_ returns expected types", {
   testthat::skip_on_cran()
-  dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
+  dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   D8pointer <- create_d8_pointer(dem)
   D8fa <- create_d8_fa(D8pointer)

diff --git a/tests/testthat/test-create_subbasins.R b/tests/testthat/test-create_subbasins.R
@@ -1,6 +1,7 @@
 test_that("create_subbasins_ returns expected types", {
   testthat::skip_on_cran()
-  dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
+  dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   D8pointer <- create_d8_pointer(dem)
   D8fa <- create_d8_fa(D8pointer)

diff --git a/tests/testthat/test-create_watershed.R b/tests/testthat/test-create_watershed.R
@@ -1,6 +1,7 @@
 test_that("create_watershed_ returns expected types", {
   testthat::skip_on_cran()
-  dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
+  dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   gpkg <- system.file("extdata", "thompsoncreek.gpkg", package = "SELECTRdata")
   pourpoint <- terra::vect(gpkg, layer = "pourpoint", crs = terra::crs(dem))

diff --git a/tests/testthat/test-snap_pour_point.R b/tests/testthat/test-snap_pour_point.R
@@ -1,6 +1,7 @@
 test_that("snap_pour_point_ returns expected types", {
   testthat::skip_on_cran()
-  dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTR")
+  testthat::skip_if_not(whitebox::check_whitebox_binary(), "whitebox binary not installed")
+  dem <- system.file("extdata", "thompsoncreek.tif", package = "SELECTRdata")
   dem <- terra::rast(dem)
   gpkg <- system.file("extdata", "thompsoncreek.gpkg", package = "SELECTRdata")
   pourpoint <- terra::vect(gpkg, layer = "pourpoint", crs = terra::crs(dem))