From 6f718a4cb69e2fd70470a49c59924bd9e21d4610 Mon Sep 17 00:00:00 2001 From: "Andrew G. Brown" Date: Mon, 22 Aug 2022 19:48:21 -0700 Subject: [PATCH] cleanup --- R/slab.R | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/R/slab.R b/R/slab.R index 7da1d224c..774a8f63b 100644 --- a/R/slab.R +++ b/R/slab.R @@ -139,17 +139,7 @@ if (length(slab.structure) == 2 && any(ldx, na.rm = TRUE)) { data <- data[which(!ldx), ] } - - # get number of profiles - n.profiles <- length(unique(data[[idname(object)]])) - - # note this is now a vector with length = n.profiles - data$.thkslb <- data[[hzd[2]]] - data[[hzd[1]]] - - # maximum depth from the diced result (not source SPC object)--accounts for logic "fixes" - max.d <- aggregate(data$.thkslb, by = list(data[[idname(object)]]), sum, na.rm = TRUE)$x - data$.thkslb <- NULL - + # extract site data site.data <- site(object)