remove tapply in sits_regularize to support older R versions

e-sensing · May 22, 2024 · f15eab3 · f15eab3
1 parent ac3b16c
commit f15eab3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/api_regularize.R b/R/api_regularize.R
@@ -42,7 +42,7 @@
  breaks = timeline,
  labels = FALSE
  )
- fi_groups <- unname(tapply(fi, groups, list))
+ fi_groups <- unname(split(fi, groups))
  assets <- .common_size(
  .discard(tile, "file_info"),
  feature = timeline[unique(groups)],