fix worker info time as cols, not rows

mschubert · Oct 10, 2023 · 0520dda · 0520dda
1 parent e442c58
commit 0520dda
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/pool.r b/R/pool.r
@@ -28,8 +28,8 @@ Pool = R6::R6Class("Pool",
             info = private$master$list_workers()
             times = do.call(rbind, info$time)[,1:3]
             mem = function(field) sapply(info$mem, function(m) sum(m[,field] * c(56,1)))
-            data.frame(worker=info$worker, status=info$status, times,
-                       mem.used=mem("used"), mem.max=mem("max used"))
+            do.call(data.frame, c(info[c("worker", "status")], as.list(times),
+                                  mem.used=mem("used"), mem.max=mem("max used")))
         },
 
         add = function(qsys, n, ...) {