Fix data.table syntax.

njhenry · njhenry · commit f634475a07de · 2026-03-10T14:45:28.000-07:00
diff --git a/R/build_aggregation_table.R b/R/build_aggregation_table.R
@@ -115,7 +115,7 @@ build_aggregation_table <- function(
     data.table::as.data.table() |>
     data.table::setnames(c('dummy_id', 'pixel_id', 'area_fraction'))
   (agg_table
-    [, polygon_id := sapply(dummy_id, function(x) poly_ids[x])])[, dummy_id := NULL]
+    [, polygon_id := sapply(dummy_id, function(x) poly_ids[x])]
     [, dummy_id := NULL]
   )
 

Original file line number	Diff line number	Diff line change
`@@ -115,7 +115,7 @@ build_aggregation_table <- function(`
`115`	`115`	`data.table::as.data.table() \|>`
`116`	`116`	`data.table::setnames(c('dummy_id', 'pixel_id', 'area_fraction'))`
`117`	`117`	`(agg_table`
`118`		`- [, polygon_id := sapply(dummy_id, function(x) poly_ids[x])])[, dummy_id := NULL]`
	`118`	`+ [, polygon_id := sapply(dummy_id, function(x) poly_ids[x])]`
`119`	`119`	`[, dummy_id := NULL]`
`120`	`120`	`)`
`121`	`121`