Add display task count

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");