- Removed gsdd_vctr().

- Removed `ignore_truncation` argument from gsdd functions.
- Set lower default `min_length` values.

NAMESPACE

@@ -5,7 +5,6 @@ export(freshwaterfish)
 export(gdd)
 export(gsdd)
 export(gsdd_cf)
-export(gsdd_vctr)
 export(interpolate_numeric_vector)
 import(chk)
 importFrom(fishbc,fbc_common_name)

R/gdd.R

@@ -12,14 +12,15 @@
 gdd <- function(
     x,
     end_date = as.Date("1972-09-30"),
-    ignore_truncation = FALSE,
-    min_length = NULL,
+    min_length = 61,
     msgs = TRUE
 ) {
+  chk_whole_number(min_length)
+  chk_range(min_length, c(14, 213))
+
   gsdd::gdd(
     x, 
     end_date = end_date,
-    ignore_truncation = ignore_truncation, 
     min_length = min_length, 
     pick = "longest",
     msgs = msgs)

R/gsdd-cf.R

@@ -1,6 +1,6 @@
 #' Calculate Growing Season Degree Days (GSDD)
 #' 
-#' Soft-deprecated for [gsdd_vctr()].
+#' Soft-deprecated for [gsdd::gsdd_vctr()].
 #'
 #' @inheritParams gsdd::gsdd_vctr
 #' @return A non-negative real number of the GSDD.
@@ -12,14 +12,15 @@
 #' gsdd_cf(gsdd::temperature_data$temperature)
 gsdd_cf <- function(
     x,
-    ignore_truncation = FALSE,
-    min_length = 184,
+    min_length = 122,
     msgs = TRUE
 ) {
-  lifecycle::deprecate_soft("0.1.2", "gsdd_cf()", with = "gsdd_vctr()")
-  gsdd_vctr(
+  lifecycle::deprecate_soft("0.1.2", "gsdd_cf()", with = "gsdd::gsdd_vctr()")
+  chk_whole_number(min_length)
+  chk_range(min_length, c(14, 274))
+
+  gsdd::gsdd_vctr(
     x, 
-    ignore_truncation = ignore_truncation, 
     min_length = min_length, 
     msgs = msgs)
 }

R/gsdd.R

@@ -11,14 +11,14 @@
 #' gsdd(gsdd::temperature_data)
 gsdd <- function(
     x,
-    ignore_truncation = FALSE,
-    min_length = 274,
+    min_length = 122,
     msgs = TRUE
 ) {
+  chk_whole_number(min_length)
   chk_range(min_length, c(14, 274))
+
   gsdd::gsdd(
     x, 
-    ignore_truncation = ignore_truncation, 
     min_length = min_length, 
     pick = "longest",
     msgs = msgs)