safer for user specified metadata

ncss-tech · Mar 2, 2021 · 26dbb89 · 26dbb89
1 parent 94189c8
commit 26dbb89
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/SoilProfileCollection-methods.R b/R/SoilProfileCollection-methods.R
@@ -79,9 +79,7 @@ setMethod(
 
     # filter out missing data, accounting for optional `v`
     h <- x@horizons
-    h <- .data.frame.j(h, target.names, aqp_df_class(x))
-    x@horizons <- h[complete.cases(h),]
-    hzdesgnname(x) <- ""
+    x@horizons <- h[complete.cases(.data.frame.j(h, target.names, aqp_df_class(x))),]
 
     # return the shallowest (of the deepest depths in each profile)
     .LAST <- NULL
@@ -120,9 +118,7 @@ setMethod(
 
     # filter out missing data, accounting for optional `v`
     h <- x@horizons
-    h <- .data.frame.j(h, target.names, aqp_df_class(x))
-    x@horizons <- h[complete.cases(h),]
-    hzdesgnname(x) <- ""
+    x@horizons <- h[complete.cases(.data.frame.j(h, target.names, aqp_df_class(x))),]
 
     # return the deepest (of the deepest depths in each profile)
     .LAST <- NULL