From 9721397ccbe582b72a78ec894780c758c6cc15a5 Mon Sep 17 00:00:00 2001
From: thierry <thierry@home>
Date: Tue, 12 Dec 2023 22:42:20 +0100
Subject: [PATCH] Add display task count
---
scripts/create_gantt.R | 2 ++
1 file changed, 2 insertions(+)
diff --git a/scripts/create_gantt.R b/scripts/create_gantt.R
index 29fa15b..c3149ad 100644
--- a/scripts/create_gantt.R
+++ b/scripts/create_gantt.R
@@ -47,7 +47,9 @@ work_analysis<- function( df_parallel, df_task )
{
df <- df_task %>% filter( (Start>= df_parallel$Start[i]) & (End <= df_parallel$End[i]) );
s <- sum(df$Duration);
+ taskcount <- nrow( df);
cat("Region parallel id",i," on ",p," thread(s)\n");
+ cat(" taskcount : ",taskcount, "\n");
cat(" duration : ",df_parallel$Duration[i], "\n");
cat(" work : ",s, "\n");
cat(" efficiency : ",s/df_parallel$Duration[i]/p, "\n");
--
GitLab