fix for #312

ncss-tech · Mar 22, 2024 · d8e1d66 · d8e1d66
1 parent 84fc1f3
commit d8e1d66
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/SoilProfileCollection-setters.R b/R/SoilProfileCollection-setters.R
@@ -702,7 +702,10 @@ setReplaceMethod("diagnostic_hz",
   # if data are already present, warn the user
   if(nrow(d) > 0)
   	warning('overwriting existing diagnostic horizon data!', call.=FALSE)
-
+
+  # convert id column to character to match @site
+  value[[idn]] <- as.character(value[[idn]])
+
   # copy data over
   object@diagnostic <- .as.data.frame.aqp(value, metadata(object)$aqp_df_class)
 
@@ -784,7 +787,10 @@ setReplaceMethod("restrictions", signature(object = "SoilProfileCollection"),
                    # if data are already present, warn the user
                    if(nrow(d) > 0)
                      warning('overwriting existing restriction data!', call.=FALSE)
-
+
+                   # convert id column to character to match @site
+                   value[[idn]] <- as.character(value[[idn]])
+
                    # copy data over
                    object@restrictions <- .as.data.frame.aqp(value, metadata(object)$aqp_df_class)