Only drop NA weights if na.rm = T.

njhenry · njhenry · commit 46fc474ea2fb · 2026-03-31T14:46:57.000-07:00
diff --git a/R/aggregate_grid_to_polygons.R b/R/aggregate_grid_to_polygons.R
@@ -474,6 +474,10 @@ aggregate_draws_to_polygons <- function(
     } else {
       stop("ISSUE: Weighting raster has a different number of layers from data raster.")
     }
+    if(na.rm){
+      # Change NA weights to 0
+      draws_table[is.na(w__), w__ := 0.0]
+    }
   } else {
     draws_table$w__ <- 1L
   }

Original file line number	Diff line number	Diff line change
`@@ -474,6 +474,10 @@ aggregate_draws_to_polygons <- function(`
`474`	`474`	`} else {`
`475`	`475`	`stop("ISSUE: Weighting raster has a different number of layers from data raster.")`
`476`	`476`	`}`
	`477`	`+ if(na.rm){`
	`478`	`+ # Change NA weights to 0`
	`479`	`+ draws_table[is.na(w__), w__ := 0.0]`
	`480`	`+ }`
`477`	`481`	`} else {`
`478`	`482`	`draws_table$w__ <- 1L`
`479`	`483`	`}`