data-raw/10a_ndc_rxc.R

In ArctiCondor/edgedata: Datasets that Support the EDGE Server DIY Logic

library(dplyr)
library(readxl)
library(stringr)

source("./data-raw/00_tables_path.R")

## Table 10a
tbl10a <- read_excel(
  tbl_path,
  sheet = "Table 10a",
  range = "A4:C15000",
  col_types = c("text", "text", "text")
)

colnames(tbl10a) <- c(
  "rxc",
  "desc",
  "ndc"
)

ndc_rxc <- tbl10a %>%
  filter(str_length(rxc) <= 3) %>%
  mutate(rxc = str_pad(rxc, 2, side = "left", pad = "0"))

usethis::use_data(ndc_rxc, overwrite = TRUE)