Summary of jobs launched by all users for LSF cluster

LSF_bjobs_monitor.r

#! /usr/bin/env Rscript
data=read.table(pipe("bjobs -u all -w | grep RUN | awk '{print $2\" \"$6}'"),stringsAsFactors = F,col.names = c("username","cpus"))
data[,2]=gsub("^cn.+$",1,data[,2])
data[,2]=as.numeric(gsub("^(.+)\\*cn.+$","\\1",data[,2]))
res=aggregate(cpus ~ username, data, sum)
print(res[order(res$cpus,decreasing = T),],row.names = FALSE)

Output example:

          username cpus
 vinayanuwattikunc  144
            lsaadm   96
           leblayn   37
       robitaillea    3
              free    8