R/defunct.R

Defines functions format_metrics expstudy aggregate compile_results add_credibility add_metrics add_proportions

Documented in add_credibility add_metrics add_proportions aggregate compile_results expstudy format_metrics

# nocov start

#' Defunct functions
#'
#' @description
#' `r lifecycle::badge("defunct")`
#'
#' These functions were part of the initial release of `expstudy` but are now
#' defunct. If there's a known replacement, calling the function
#' will tell you about it.
#'
#' @keywords internal
#' @name defunct
NULL

#' @usage # Deprecated in 2.0.0 -------------------------------------
#' @name defunct
NULL

#' @export
#' @rdname defunct
add_proportions <- function(
    expstudy,
    ...,
    .base_grp_nms = character(0),
    .min_ungrpd = 0L
) {
  lifecycle::deprecate_stop('2.0.0', 'add_proportions()')
}

#' @export
#' @rdname defunct
add_metrics <- function(
    expstudy,
    ...,
    .metrics = c('act2expec', 'act2expos', 'expec2expos'),
    .metric_nms = list(
      act2expec = 'ACTUAL_TO_EXPECTED',
      act2expos = 'ACTUAL_TO_EXPOSED',
      expec2expos = 'EXPECTED_TO_EXPOSED'
    )
) {
  lifecycle::deprecate_stop('2.0.0', 'add_metrics()', 'mutate_metrics()')
}

#' @export
#' @rdname defunct
add_credibility <- function(
    expstudy,
    .cred_k = 0.05,
    .cred_p = 0.95,
    .cred_nms = 'CREDIBILITY'
) {
  lifecycle::deprecate_stop('2.0.0', 'add_credibility()', 'mutate_metrics()')
}

#' @export
#' @rdname defunct
compile_results <- function(
    expstudy,
    ...,
    output = c('metrics', 'proportions'),
    output_args = list(
      metrics = NULL,
      proportions = NULL
    ),
    output_format = c('unformatted', 'formatted')
) {
  lifecycle::deprecate_stop('2.0.0', 'compile_results()')
}

#' @export
#' @rdname defunct
aggregate <- function(
    expstudy,
    ...,
    .oth_sum_vars = NULL
) {
  lifecycle::deprecate_stop('2.0.0', 'aggregate()', 'summarise_measures()')
}

#' @export
#' @rdname defunct
expstudy <- function(
    data,
    actuals,
    expecteds,
    exposures,
    variances = NULL,
    keys = NULL
) {
  lifecycle::deprecate_stop('2.0.0', 'expstudy()')
}

#' @export
#' @rdname defunct
format_metrics <- function(expstudy) {
  lifecycle::deprecate_stop('2.0.0', 'add_proportions()')
}

# nocov end

Try the expstudy package in your browser

Any scripts or data that you put into this service are public.

expstudy documentation built on May 29, 2024, 4:05 a.m.