icd (version 3.3)

attr_decimal_diag: Set ICD short-form diagnosis code attribute

Description

Doing this in an R function doesn't work for 'void' equivalent, and does a copy if the updated object is returned.

Usage

attr_decimal_diag(x, value = TRUE)

Examples

# NOT RUN {
j <- "100"
attr(j, "icd_short_diag") <- TRUE
j
attr(j, "icd_short_diag") <- FALSE
j
icd:::attr_decimal_diag(j)
as.decimal_diag(j)
# if pryr is installed, use address and refs to see what is going on
# }