fix .SD

ropensci · Oct 8, 2024 · 512ab61 · 512ab61
1 parent c434b3a
commit 512ab61
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/direction_polarization.R b/R/direction_polarization.R
@@ -112,7 +112,7 @@ direction_polarization <- function(
     stop('units(DT$direction) is not radians, did you use direction_step?')
   }
 
-  DT[, c(out) := CircStats::r.test(units::drop_units(.SD))$r.bar,
+  DT[, c(out) := CircStats::r.test(units::drop_units(.SD[[1]]), degree = FALSE)$r.bar,
     by = c(group),
     .SDcols = c(direction)]