Add deprecate messages, closes #121

bbsBayes · Jul 9, 2019 · 31154a1 · 31154a1
1 parent d7b3ce8
commit 31154a1
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/R/stratify.R b/R/stratify.R
@@ -48,8 +48,15 @@
 stratify <- function(by = NULL,
                      sample_data = FALSE,
                      bbs_data = NULL,
-                     quiet = FALSE)
+                     quiet = FALSE,
+                     stratify_by = NULL)
 {
+  if (isFALSE(is.null(stratify_by)))
+  {
+    message("Argument \"stratify_by\" has been deprecated in favour of \"by\"")
+    by <- stratify_by
+  }
+
   if(isFALSE(is.element(by, c("state", "bcr", "latlong", "bbs_cws", "bbs_usgs"))))
   {
     stop("Invalid stratification specified"); return(NULL)

diff --git a/man/stratify.Rd b/man/stratify.Rd