fls <- system.file("extdata", "inventory_ecv1.rds", package = "gimms")
fls <- basename(readRDS(fls))
oldNaming(fls[64:65], suffix = ".tif") # adds .tif extension
oldNaming(fls[65:66]) # tags newer files with 'XX'
Run the code above in your browser using DataLab