data-raw/sample_Rx_un-processed.R

In guiboucher/polypharmacy: Calculate Several Polypharmacy Indicators

library(usethis)
library(data.table)
library(lubridate)
library(polypharmacy)

set.seed(23)
sample_Rx_unprocessed <- data.table()
for (i in 1:100) {  # id number
  for (j in sample(LETTERS, sample(1:20, 1))) {  # code number
    sample_Rx_unprocessed <- rbind(
      sample_Rx_unprocessed, data.table(
        id = i,
        code = j,
        start = as_date(sample(10957:11687, sample(1:30), 1)),
        duration = sample(c(1, 7, 15, 30, 45, 60, 90), 1)
      )
    )
  }
}
setkey(sample_Rx_unprocessed, id, code, start)

sample_Rx_processed <- data_process(
  Rx_deliv = sample_Rx_unprocessed,
  Rx_id = "id", Rx_drug_code = "code",
  Rx_drug_deliv = "start", Rx_deliv_dur = "duration"
)

use_data(sample_Rx_unprocessed,
         sample_Rx_processed,

         overwrite = TRUE)