Commit 12b8b2ab authored by Jean-Benoist Leger's avatar Jean-Benoist Leger
Browse files

merge, log details : rename

parent f1f03180
......@@ -31,6 +31,16 @@ fusionlist <- function(filelist, output_path, output_filename, ext, unk_sign, co
try(file.remove(file.path(output_path, paste0('merged', i, '.', ext))), silent = TRUE)
}
}
write(
paste0(
"Rename \"",
paste0('merged', nb - 1, '.', ext),
"\" to \"",
output_filename,
"\"\n"
),
file = file.path(output_path, 'log.txt'),
append = TRUE)
file.rename(file.path(output_path, paste0('merged', nb - 1, '.', ext)), file.path(output_path, output_filename))
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment