Replacing length(<DOUBLE>) which is not supported by DuckDB.

OHDSI · Jan 16, 2025 · 30f3954 · 30f3954
1 parent d650c63
commit 30f3954
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/DataSplitting.R b/R/DataSplitting.R
@@ -281,11 +281,11 @@ dataSummary <- function(data) {
 
 
   result <- data$Train$covariateData$covariates %>%
-    dplyr::group_by(.data$covariateId) %>%
-    dplyr::summarise(N = length(.data$covariateValue)) %>%
-    dplyr::collect()
+    dplyr::distinct(.data$covariateId) %>%
+    dplyr::count() %>%
+    dplyr::pull()
 
-  ParallelLogger::logInfo(paste0(nrow(result), " covariates in train data"))
+  ParallelLogger::logInfo(paste0(result, " covariates in train data"))
 
   if ("Test" %in% names(data)) {
     ParallelLogger::logInfo("Test Set:")