hcpcs_file <- "data-raw/CPT HCPCS.xlsx"
cols <- c("text","text")
##### Import HCPCS #####
hcpcs_2014 <- read_excel(hcpcs_file, sheet = "2014", col_types = cols)
hcpcs_2015 <- read_excel(hcpcs_file, sheet = "2015", col_types = cols)
hcpcs_2016 <- read_excel(hcpcs_file, sheet = "2016", col_types = cols)
hcpcs_2017 <- read_excel(hcpcs_file, sheet = "2017", col_types = cols)
hcpcs_2018 <- read_excel(hcpcs_file, sheet = "2018", col_types = cols)
names(hcpcs_2014) <-
names(hcpcs_2015) <-
names(hcpcs_2016) <-
names(hcpcs_2017) <-
names(hcpcs_2018) <-
c("code","description")
hcpcs <- list(
"2014"=hcpcs_2014,
"2015"=hcpcs_2015,
"2016"=hcpcs_2016,
"2017"=hcpcs_2017,
"2018"=hcpcs_2018
)
rm(hcpcs_2014,hcpcs_2015,hcpcs_2016,hcpcs_2017,hcpcs_2018)
rm(hcpcs_file)
rm(cols)
devtools::use_data(hcpcs,overwrite = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.