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 ...@@ -141,10 +141,11 @@ jobSummaries %>% mutate(pending_time_hours=pending_time_min/60) %>% select(jobid
## todo finish send mail if wall time was exceeded ## 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) numTotal= nrow(jobSummaries)
if(numKilled >0){ if(numKilled >0){
system(paste("mailme '",numKilled,"out of ",numTotal," jobs in ", getwd(), " died because of queue length limitation'")) 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