adding CI related info for effect sizes

[indrajeetpatil]

adding CI related info for effect sizes

[IndrajeetPatil]

#' @name tidy_model_effectsize
#' @title Convert `effectsize` package output to `tidyverse` conventions
#'
#' @param data Dataframe returned by `effectsize` functions.
#'
#' @importFrom effectsize get_effectsize_label
#' @importFrom purrr compose attr_getter
#' @importFrom dplyr select mutate contains rename_with
#'
#' @examples
#' df <- effectsize::cohens_d(sleep$extra, sleep$group)
#' tidy_model_effectsize(df)
#' @export

tidy_model_effectsize <- function(data) {
  dplyr::bind_cols(
    data %>%
      dplyr::mutate(effectsize = stats::na.omit(effectsize::get_effectsize_label(colnames(.)))[[1]]) %>%
      parameters::standardize_names(style = "broom") %>%
      dplyr::select(-dplyr::contains("term")) %>%
      as_tibble(.),
    dplyr::rename_with(get_ci_method(data), ~ paste0("conf.", .x))
  )
}

#' helper to get ci-related info stored as attributes in `effectsize` outputs
#' @noRd

get_ci_method <- purrr::compose(as_tibble, purrr::attr_getter("ci_method"))

[IndrajeetPatil]

Will have to wait for effectsize's next version to be on CRAN