hzdesgn argument default: update corresponding to #309

ncss-tech · Feb 25, 2024 · d42043d · d42043d
1 parent a466959
commit d42043d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/R/thicknessOf.R b/R/thicknessOf.R
@@ -49,7 +49,7 @@
 #' 
 thicknessOf <- function(x, 
                         pattern = NULL, 
-                        hzdesgn = guessHzDesgnName(x, required = TRUE), 
+                        hzdesgn = hzdesgnname(x, required = TRUE), 
                         method = "cumulative",
                         prefix = "",
                         thickvar = "thickness",
@@ -60,6 +60,10 @@ thicknessOf <- function(x,
   .internalTHK <- NULL
   .interalHZM <- NULL
 
+  if (is.null(hzdesgn) || !hzdesgn %in% horizonNames(x)) {
+    stop("Horizon designation column (", hzdesgn, ") does not exist.")
+  }
+
   # check inputs
   method <- match.arg(tolower(gsub("/", "", method)), c("cumulative", "minmax"))
   stopifnot(length(thickvar) == 1)

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