fix: work around data.table warning

reconverse · May 16, 2024 · ba076a1 · ba076a1
1 parent a19f87d
commit ba076a1
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/incidence.R b/R/incidence.R
@@ -160,8 +160,6 @@ incidence <- function(
     ...
 ) {
 
-    ..counts <- NULL
-
     # handle defunct arguments
     if (...length()) {
         if (getRversion() >= "4.1.0") {
@@ -367,7 +365,7 @@ incidence <- function(
         res <- DT[, .N, keyby = c(date_names_to, groups, count_names_to)]
         setnames(res, length(res), count_values_to)
     } else {
-        nas_present <- sapply(DT[,..counts], anyNA)
+        nas_present <- sapply(.subset(DT,counts), anyNA)
         if (any(nas_present)) {
             missing_names <- names(nas_present)[nas_present]
             warnf(