# 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
# }
Run the code above in your browser using DataLab