diff --git a/.lintr b/.lintr index bc0a699..24eb3c0 100644 --- a/.lintr +++ b/.lintr @@ -1,5 +1,6 @@ linters: linters_with_defaults( - indentation_linter = NULL + indentation_linter = NULL, + return_linter = NULL ) exclusions: list( "R/stanmodels.R", diff --git a/R/ppmc.R b/R/ppmc.R index e6245e8..b3f32b1 100644 --- a/R/ppmc.R +++ b/R/ppmc.R @@ -439,7 +439,7 @@ ppmc_odds_ratio <- function(model, post_data, probs, return_draws) { tidyr::pivot_wider(names_from = "item", values_from = "value") %>% dplyr::select(-"resp") %>% - tidyr::nest(dat = !starts_with(".")) %>% + tidyr::nest(dat = !dplyr::starts_with(".")) %>% dplyr::mutate(dat = lapply(.data$dat, pw_or)) %>% tidyr::unnest("dat") %>% tidyr::nest(samples = -c("item_1", "item_2")) %>%