id column name bugfix

jakub-jedrusiak · Jun 1, 2023 · a3d4bc3 · a3d4bc3
1 parent b1be97f
commit a3d4bc3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/mtscr_model_summary.R b/R/mtscr_model_summary.R
@@ -42,7 +42,7 @@ mtscr_model_summary <- function(model) {
   purrr::map(
     model,
     \(x) {
-      st <- glmmTMB::VarCorr(x)[1]$cond$id[1]
+      st <- glmmTMB::VarCorr(x)[1]$cond[[1]][1]
       diag_cov <- x$sdr$diag.cov.random
       se <- diag_cov[seq(1, length(diag_cov) / 2)] |>
         mean()

diff --git a/R/mtscr_score.R b/R/mtscr_score.R
@@ -58,9 +58,9 @@ mtscr_score <- function(df, id_column, item_column = NULL, score_column, top = 1
     \(current_model, top_number) {
       col_name <- paste0(".creativity_score_top", top_number)
 
-      glmmTMB::ranef(current_model)$cond$id |>
-        dplyr::as_tibble(rownames = "id") |>
-        dplyr::select("id", !!col_name := "(Intercept)")
+      glmmTMB::ranef(current_model)$cond[[rlang::as_label(id_column)]] |>
+        dplyr::as_tibble(rownames = rlang::as_label(id_column)) |>
+        dplyr::select(!!id_column, !!col_name := "(Intercept)")
     }
   ) |>
     Reduce(dplyr::full_join, x = _) |>