R/alt_save.R

Defines functions alt_save

alt_save <- function(j,target) {
  lapply(j, function(u) {
    df <- alt_parse_dir(u)
    name <-   paste0(basename(dirname(u)),
                     "_",
                     basename(u),
                     "_machinevision_",
                     Sys.Date(),
                     ".csv")
    newpath <- file.path(target, name)
    write.csv(df, newpath, row.names = F)
}
JARS3N/details documentation built on April 26, 2020, 9:16 p.m.