Commit e6a6e755 authored by Holger Brandl's avatar Holger Brandl

export table with killed jobs

parent f4fd3319
......@@ -141,10 +141,11 @@ jobSummaries %>% mutate(pending_time_hours=pending_time_min/60) %>% select(jobid
## todo finish send mail if wall time was exceeded
numKilled=nrow(subset(jobSummaries, exceeded_queue_limit))
numKilled=nrow(filter(jobSummaries, exceeded_queue_limit))
numTotal= nrow(jobSummaries)
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"))
}
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