data-raw/medications.R

In ramses-antibiotics/ramses-package: R Package for Antimicrobial Stewardship & Surveillance

## code to prepare `data-raw/drug_*.csv` datasets goes here
drug_prescriptions <- read.csv(
  file = "data-raw/drug_prescriptions.csv", stringsAsFactors = F,
  colClasses = c("character", "character", "character", "POSIXct", 
                 "POSIXct", "POSIXct", "character", 
                 "character", "character", "character", 
                 "character", "numeric"))
drug_prescriptions2 <- read.csv(
  file = "data-raw/drug_prescriptions2.csv", stringsAsFactors = F,
  colClasses = c("character", "character", "character", "POSIXct", 
                 "POSIXct", "POSIXct", "character", 
                 "character", "character", "character", 
                 "character", "numeric"))

drug_prescriptions$dose <- as.numeric(drug_prescriptions$dose)
drug_prescriptions2$dose <- as.numeric(drug_prescriptions2$dose)
drug_prescriptions <- dplyr::bind_rows(drug_prescriptions,
                                       drug_prescriptions2)
for (i in which(vapply(drug_prescriptions, is, class2 = "POSIXct", FUN.VALUE = logical(1)))) {
  attr(drug_prescriptions[[i]], "tzone") <- "Europe/London"
}
usethis::use_data(drug_prescriptions, overwrite = T)

drug_administrations <- read.csv(
  file = "data-raw/drug_administrations.csv", stringsAsFactors = F,
  colClasses = c("character", "character", "character",
                 "character", "character", "character",
                 "POSIXct"))
drug_administrations2 <- read.csv(
  file = "data-raw/drug_administrations2.csv", stringsAsFactors = F,
  colClasses = c("character", "character", "character",
                 "character", "character", "character",
                 "POSIXct"))
drug_administrations$dose <- as.numeric(drug_administrations$dose)
drug_administrations2$dose <- as.numeric(drug_administrations2$dose)
drug_administrations <- dplyr::bind_rows(drug_administrations,
                                         drug_administrations2)

for (i in which(vapply(drug_administrations, 
                       is, 
                       class2 = "POSIXct", 
                       FUN.VALUE = logical(1)))) {
  attr(drug_administrations[[i]], "tzone") <- "Europe/London"
}

usethis::use_data(drug_administrations, overwrite = T)