Don't include zip file in description check

bpbond · Jun 26, 2019 · d9ab0b4 · d9ab0b4
1 parent 01e3872
commit d9ab0b4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/release.R b/R/release.R
@@ -104,6 +104,8 @@ csr_make_release <- function(all_data, path,
 
  # Check: all the files should be included in the file description list
  all_files <- list.files(path, recursive = FALSE)
+ release_file <- paste0("cosore-", packageVersion("cosore"), ".zip")
+ all_files <- setdiff(all_files, release_file)
  missing <- !all_files %in% names(file_descriptions)
  if(any(missing)) {
  stop("Missing description for files: ",
@@ -117,7 +119,6 @@ csr_make_release <- function(all_data, path,
 
  # Almost done! Zip everything up into a single file
  message("Zipping...")
- release_file <- paste0("cosore-", packageVersion("cosore"), ".zip")
  wd <- getwd()
  setwd(path)
  utils::zip(release_file,