Job visualization script with command line parameter support

master
eugen.betke 2020-08-18 11:41:32 +02:00
parent 05525e8e02
commit 69048820b3
1 changed files with 5 additions and 2 deletions

View File

@ -7,6 +7,8 @@ library('repr')
library('jcolors')
library("reticulate")
args <- commandArgs(trailingOnly = TRUE)
#setwd(source_dir)
use_python("/mnt/lustre01/work/ku0598/k202107/software/install/python/3.8.0/bin/python3", required=T)
source_python("/work/ku0598/k202107/git/mistral-job-evaluation/scripts/jupyter/r_visual_jobs#pickle_reader.py")
@ -18,7 +20,8 @@ global[['fig_dir']] = sprintf('%s/figures/job_visualization', global[['eval_dir'
global[['key']] = 22897682
config = list()
config[['crypted_jobid']] = 4296426
#config[['crypted_jobid']] = 4296426
config[['crypted_jobid']] = as.int(args[1])
config[['jobid']] = bitwXor(config[['crypted_jobid']], global[['key']])
config[['cat_fn']] = sprintf("%s/600/cats/%s.json", global[['source_dir']], config[['jobid']])
config[['raw_fn']] = sprintf('%s/600/jobdata/%s.pkl', global[['source_dir']], config[['jobid']])
@ -54,7 +57,7 @@ rename_metrics <- function(data) {
visualize_categories <- function(gconf, cconf, data, view, col, x_breakpoints) {
out_dir = sprintf('%s/%d', gconf[['fig_dir']], cconf[['jobid']])
out_dir = sprintf('%s/%d_%d', gconf[['fig_dir']], cconf[['jobid']], cconf[['crypted_jobid']])
dir.create(out_dir, recursive=TRUE)
# Set legend title