@@ -50,3 +50,40 @@ printJobInformation <- function(jobId,
50
50
cat(sprintf(" autoDeleteJob: %s" , as.character(autoDeleteJob )), fill = TRUE )
51
51
cat(strrep(' =' , options(" width" )), fill = TRUE )
52
52
}
53
+
54
+ printCluster <- function (cluster , resourceFiles = list ()) {
55
+ cat(strrep(' =' , options(" width" )), fill = TRUE )
56
+ cat(sprintf(" Name: %s" , cluster $ name ), fill = TRUE )
57
+
58
+ cat(sprintf(" Configuration:" ), fill = TRUE )
59
+ cat(sprintf(" \t Docker Image: %s" , cluster $ containerImage ), fill = TRUE )
60
+ cat(sprintf(" \t MaxTasksPerNode: %s" , cluster $ maxTasksPerNode ), fill = TRUE )
61
+ cat(sprintf(" \t Node Size: %s" , cluster $ vmSize ), fill = TRUE )
62
+
63
+ cranPackages <- cluster $ rPackages $ cran
64
+ githubPackages <- cluster $ rPackages $ github
65
+ bioconductorPackages <- cluster $ rPackages $ bioconductor
66
+ getJobPackageSummary(cranPackages )
67
+ getJobPackageSummary(githubPackages )
68
+ getJobPackageSummary(bioconductorPackages )
69
+
70
+ cat(sprintf(" Scale:" ), fill = TRUE )
71
+ cat(sprintf(" \t Autoscale Formula: %s" , cluster $ poolSize $ autoscaleFormula ), fill = TRUE )
72
+ cat(sprintf(" \t Dedicated:" ), fill = TRUE )
73
+ cat(sprintf(" \t\t Min: %s" , cluster $ poolSize $ dedicatedNodes $ min ), fill = TRUE )
74
+ cat(sprintf(" \t\t Max: %s" , cluster $ poolSize $ dedicatedNodes $ max ), fill = TRUE )
75
+ cat(sprintf(" \t Low Priority:" ), fill = TRUE )
76
+ cat(sprintf(" \t\t Min: %s" , cluster $ poolSize $ lowPriorityNodes $ min ), fill = TRUE )
77
+ cat(sprintf(" \t\t Max: %s" , cluster $ poolSize $ lowPriorityNodes $ max ), fill = TRUE )
78
+
79
+ if (! is.null(resourceFiles ) &&
80
+ length(resourceFiles ) > 0 ) {
81
+ cat(sprintf(" Resource Files:" ), fill = TRUE )
82
+
83
+ for (i in 1 : length(resourceFiles )) {
84
+ cat(sprintf(" \t %s" ,
85
+ resourceFiles [[i ]]$ filePath ), fill = TRUE )
86
+ }
87
+ }
88
+ cat(strrep(' =' , options(" width" )), fill = TRUE )
89
+ }
0 commit comments