get_component_from_SDA: use incomparables=NA with merge()

brownag · brownag · commit e244da748c66 · 2025-07-31T16:07:59.000-07:00
diff --git a/R/get_component_from_SDA.R b/R/get_component_from_SDA.R
@@ -863,7 +863,7 @@ get_chorizon_from_SDA <- function(WHERE = NULL, duplicates = FALSE,
         d.chfrags[idx] <- lapply(d.chfrags[idx], function(x) ifelse(is.na(x), 0, x))
       }
   
-      d.chorizon <- merge(d.chorizon, d.chfrags, all.x = TRUE, by = "chkey", sort = FALSE)
+      d.chorizon <- merge(d.chorizon, d.chfrags, all.x = TRUE, by = "chkey", sort = FALSE, incomparables = NA)
   
     }
   # } else {

Original file line number	Diff line number	Diff line change
`@@ -863,7 +863,7 @@ get_chorizon_from_SDA <- function(WHERE = NULL, duplicates = FALSE,`
`863`	`863`	`d.chfrags[idx] <- lapply(d.chfrags[idx], function(x) ifelse(is.na(x), 0, x))`
`864`	`864`	`}`
`865`	`865`
`866`		`- d.chorizon <- merge(d.chorizon, d.chfrags, all.x = TRUE, by = "chkey", sort = FALSE)`
	`866`	`+ d.chorizon <- merge(d.chorizon, d.chfrags, all.x = TRUE, by = "chkey", sort = FALSE, incomparables = NA)`
`867`	`867`
`868`	`868`	`}`
`869`	`869`	`# } else {`