R/get_codes.R

In pccc: Pediatric Complex Chronic Conditions

# Since this function is pretty must just a passthrough to C++, see get_codes.cpp for documentation
#' @method as.data.frame pccc_codes
#' @export
as.data.frame.pccc_codes <- function(x, ...) {
  v <- attr(x, "version")

  out <-
    Map(function(category, type) {
          cd <- unlist(x[category, type])

          if (length(cd))
            data.frame(category = category, type = type, icd = cd)

        },
        category = rep(rownames(x), each = ncol(x)),
        type = rep(colnames(x), times = nrow(x))
        )
  dplyr::bind_rows(out)
}

#' @method as.tbl pccc_codes
#' @export
as.tbl.pccc_codes <- function(x, ...) {
  dplyr::as.tbl(as.data.frame.pccc_codes(x), ...)
}

#' @method as_tibble pccc_codes
#' @export
as_tibble.pccc_codes <- function(x, ...) {
  tibble::as_tibble(as.data.frame.pccc_codes(x), ...)
}