40 lines
1.4 KiB
R
40 lines
1.4 KiB
R
|
|
## Do this to get csv files from github
|
|
## Get the url of the zipped branch or tag to get the csvs from
|
|
|
|
# Set fileName variable to the name of the cdm version or branch being downloaded
|
|
fileName <- "cdm_v_5_3_1_fixes"
|
|
|
|
# get the url for the zip CDM files. This could be for a release or for a branch
|
|
zipUrl <- "https://github.com/OHDSI/CommonDataModel/archive/v5.3.1_fixes.zip"
|
|
|
|
# download the zipped files
|
|
download.file(url = zipUrl,
|
|
destfile = paste0("inst/zip/", fileName ,".zip"))
|
|
|
|
# find the names of the csvs in the zipped file
|
|
zipped_csv_names <- grep('\\.csv$', unzip(paste0("inst/zip/", fileName ,".zip"), list=TRUE)$Name,
|
|
ignore.case=TRUE, value=TRUE)
|
|
|
|
# unzip only the csvs and put them in inst
|
|
unzip(paste0("inst/zip/", fileName ,".zip"), files=zipped_csv_names, exdir = "inst")
|
|
|
|
# paste the new csvs in the csv folder
|
|
zipFileList <- unzip(paste0("inst/zip/", fileName ,".zip"), list=TRUE)
|
|
folderName <- dplyr::filter(zipFileList, stringr::str_ends(Name, "/", negate = FALSE) & stringr::str_count(Name,"/") ==1)
|
|
|
|
newdir <- "inst/csv"
|
|
currentdir <- paste0("inst/",folderName$Name,"/")
|
|
listFiles <- list.files(currentdir)
|
|
|
|
file.copy(file.path(currentdir,listFiles), newdir, recursive = TRUE, overwrite = TRUE)
|
|
|
|
#rebuild package
|
|
|
|
|
|
# CRAN testing
|
|
# For info the token(s) and email(s) are stored at ~/Library/Application Support/rhub/validated_emails.csv
|
|
# devtools::check_rhub()
|
|
|
|
|