R/format_counts.R

Defines functions format_counts

#' format_counts
#'
#' @param data [[data.frame]] A `data.frame` with the count data.
#' @inheritParams load_rcc
#' @param count_column [[character]] A `character` string naming the column where the counts are.
#'
#' @keywords internal
#' @usage NULL
#' @noRd
#'
#' @return [[data.frame]]
format_counts <- function(data, id_colname, count_column = "Count") {
  data.table::dcast(
    data = data.table::setDT(data),
    formula = sprintf("CodeClass + Name ~ %s", id_colname),
    value.var = count_column
  )
}

Try the NACHO package in your browser

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

NACHO documentation built on Dec. 6, 2022, 1:06 a.m.