Added cluster submission output (#236)

* Finish output for cluster

* Added resource files print info

* Fixed ordering

* Renamed Nodes to Scale

* Fixed typo

R/cluster.R

@@ -213,6 +213,8 @@ makeCluster <-
                  e))
     })
 
+    printCluster(poolConfig, resourceFiles)
+
     response <- .addPool(
       pool = poolConfig,
       packages = packages,

R/stringUtilities.R

@@ -50,3 +50,40 @@ printJobInformation <- function(jobId,
   cat(sprintf("autoDeleteJob: %s", as.character(autoDeleteJob)), fill = TRUE)
   cat(strrep('=', options("width")), fill = TRUE)
 }
+
+printCluster <- function(cluster, resourceFiles = list()) {
+  cat(strrep('=', options("width")), fill = TRUE)
+  cat(sprintf("Name: %s", cluster$name), fill = TRUE)
+
+  cat(sprintf("Configuration:"), fill = TRUE)
+  cat(sprintf("\tDocker Image: %s", cluster$containerImage), fill = TRUE)
+  cat(sprintf("\tMaxTasksPerNode: %s", cluster$maxTasksPerNode), fill = TRUE)
+  cat(sprintf("\tNode Size: %s", cluster$vmSize), fill = TRUE)
+
+  cranPackages <- cluster$rPackages$cran
+  githubPackages <- cluster$rPackages$github
+  bioconductorPackages <- cluster$rPackages$bioconductor
+  getJobPackageSummary(cranPackages)
+  getJobPackageSummary(githubPackages)
+  getJobPackageSummary(bioconductorPackages)
+
+  cat(sprintf("Scale:"), fill = TRUE)
+  cat(sprintf("\tAutoscale Formula: %s", cluster$poolSize$autoscaleFormula), fill = TRUE)
+  cat(sprintf("\tDedicated:"), fill = TRUE)
+  cat(sprintf("\t\tMin: %s", cluster$poolSize$dedicatedNodes$min), fill = TRUE)
+  cat(sprintf("\t\tMax: %s", cluster$poolSize$dedicatedNodes$max), fill = TRUE)
+  cat(sprintf("\tLow Priority:"), fill = TRUE)
+  cat(sprintf("\t\tMin: %s", cluster$poolSize$lowPriorityNodes$min), fill = TRUE)
+  cat(sprintf("\t\tMax: %s", cluster$poolSize$lowPriorityNodes$max), fill = TRUE)
+
+  if (!is.null(resourceFiles) &&
+      length(resourceFiles) > 0) {
+    cat(sprintf("Resource Files:"), fill = TRUE)
+
+    for (i in 1:length(resourceFiles)) {
+      cat(sprintf("\t%s",
+                  resourceFiles[[i]]$filePath), fill = TRUE)
+    }
+  }
+  cat(strrep('=', options("width")), fill = TRUE)
+}