sprat-xsa-experimental

1
# clean all results
2

3
files <- list.files("output", recursive = TRUE)
4

5
if (length(files) > 1) {
6
  for (i in 1:length(files)) {
7
    if (is.na(files[i])) {
8
      break
9
    }
10
    
11
    if (endsWith(files[i], ".txt") | endsWith(files[i], ".png")) {
12
      if (file.exists(sprintf("output/%s", files[i]))) {
13
        file.remove(sprintf("output/%s", files[i]))
14
      }
15
    }
16
  }
17
}
18

19
rm(list = ls(all.names=TRUE))