Commit a72043c9 authored by Holger Brandl's avatar Holger Brandl

create empty killed list if all jobs completed succesfully

parent c73b838f
......@@ -158,8 +158,12 @@ jobSummaries %>% mutate(pending_time_hours=pending_time_min/60) %>% select(jobid
numKilled=nrow(filter(jobSummaries, exceeded_queue_limit))
numTotal= nrow(jobSummaries)
killedListFile=paste0(reportName, ".killed_jobs.txt")
if(numKilled >0){
system(paste("mailme '",numKilled,"out of ",numTotal," jobs in ", getwd(), " died because of queue length limitation'"))
filter(jobSummaries, exceeded_queue_limit) %$% writeLines(jobid, con=paste0(reportName, ".killed_jobs.txt"))
filter(jobSummaries, exceeded_queue_limit) %$% writeLines(jobid, con=killedListFile)
}else{
## Create an empty killed list to indicate that we actually looked into it
file.create(killedListFile)
}
Markdown is supported
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