resolve data.table issue

wjakethompson · Aug 9, 2024 · 70e6476 · 70e6476
1 parent cf8fd92
commit 70e6476
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/measr-package.R b/R/measr-package.R
@@ -12,6 +12,8 @@
 ## usethis namespace: end
 NULL
 
+.datatable.aware <- TRUE
+
 release_bullets <- function() {
   c("Run `data-raw/stan-scripts.R` to update precompiled Stan code")
 }
diff --git a/R/ppmc.R b/R/ppmc.R
@@ -244,9 +244,9 @@ ppmc_rawscore_chisq <- function(model, post_data, probs, return_draws) {
   raw_score_post <- dtplyr::lazy_dt(post_data) %>%
     dplyr::summarize(raw_score = sum(.data$value), .by = c("resp", ".draw")) %>%
     dplyr::count(.data$.draw, .data$raw_score) %>%
+    tibble::as_tibble() %>%
     tidyr::complete(.data$.draw, raw_score = 0:nrow(model$data$qmatrix),
-                    fill = list(n = 0L)) %>%
-    tibble::as_tibble()
+                    fill = list(n = 0L))
 
   exp_raw_scores <- raw_score_post %>%
     dplyr::summarize(exp_resp = mean(.data$n), .by = "raw_score") %>%