In pratikunterwegs/patho-move-evol: Analysis code for the _pathomove_ model.

Code to remove bad or old files

# read parameter files
library(data.table)
library(glue)
library(stringr)

# list parameter combinations and unique output files
param_files <- list.files(
  "data/parameters",
  pattern = "csv", full.names = T
)
params <- lapply(param_files, fread)
params <- rbindlist(params, use.names = TRUE)

# list Rds files in output folder
rdfiles <- list.files(
  "data/output",
  pattern = "Rds", full.names = T
)
rdfile_num <- str_extract(rdfiles, "\\d{10}")

# which files to remove
rdfiles_to_del <- rdfile_num %in% params$ofi

# delete files which should be deleted
Map(
  rdfiles[!rdfiles_to_del],
  f = file.remove
)