data-raw/adam/prepareData.R

In SafetyGraphics/safetyData: Clinical Trial Data

library(dplyr)
library(usethis)
here::i_am("data-raw/adam/prepareData.R")
library(here)

# Copy csv files in /data-raw to /data and create roxygen documentation in /R
paths<-list.files(
    here::here("data-raw","adam"), 
    pattern = "\\.xpt$", 
    ignore.case=TRUE, 
    full.names=FALSE, 
    recursive=TRUE
)  

for(path in paths){
    # remove file extension
    file <- paste0(
        "adam_",
        substr(path,1,nchar(path)-4)
    ) 

    # Read csv to data frame   
    assign(
        file, 
        haven::read_xpt(here('data-raw','adam',path))
    ) 
    
    #save to .RDA to /data 
    do.call(
        'use_data', 
        list(as.name(file), overwrite = TRUE)
    ) 
}