add export logs

bin/gargantext-adaptative-phylo/Main.hs

@@ -169,6 +169,8 @@ main = do
 
             let dot = toPhyloExport phylo
 
+            printIOMsg "##########################"            
+
             let output = (outputPath config) 
                       <> (unpack $ phyloName config)
                       <> "_V2.dot"

src/Gargantext/Viz/AdaptativePhylo.hs

@@ -127,7 +127,7 @@ defaultConfig =
             , phyloLevel     = 2
             , phyloProximity = WeightedLogJaccard 10 0 0.1
             , phyloSynchrony = ByProximityDistribution 0
-            , phyloQuality   = Quality 0 3
+            , phyloQuality   = Quality 0.5 1
             , timeUnit       = Year 3 1 5
             , contextualUnit = Fis 1 5
             , exportLabel    = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2]

src/Gargantext/Viz/Phylo/PhyloExport.hs

@@ -158,7 +158,8 @@ mergePointers groups =
 exportToDot :: Phylo -> PhyloExport -> DotGraph DotId
 exportToDot phylo export = 
     trace ("\n-- | Convert " <> show(length $ export ^. export_branches) <> " branches and "
-         <> show(length $ export ^. export_groups) <> " groups to a dot file\n") $
+         <> show(length $ export ^. export_groups) <> " groups " 
+         <> show(length $ nub $ concat $ map (\g -> g ^. phylo_groupNgrams) $ export ^. export_groups) <> " terms to a dot file\n") $
     digraph ((Str . fromStrict) $ (phyloName $ getConfig phylo)) $ do 
 
         -- | 1) init the dot graph
@@ -465,9 +466,17 @@ toPhyloExport phylo = exportToDot phylo
         branches = traceExportBranches $ map (\bId -> PhyloBranch bId "" empty) $ nub $ map _phylo_groupBranchId groups
         --------------------------------------    
         groups :: [PhyloGroup]
-        groups = processDynamics 
+        groups = traceExportGroups
+               $ processDynamics 
                $ getGroupsFromLevel (phyloLevel $ getConfig phylo) phylo
 
 
 traceExportBranches :: [PhyloBranch] -> [PhyloBranch]
-traceExportBranches branches = trace ("\n" <> "-- | Export " <> show(length branches) <> " branches") branches
+traceExportBranches branches = trace ("\n"
+  <> "-- | Export " <> show(length branches) <> " branches") branches
+
+traceExportGroups :: [PhyloGroup] -> [PhyloGroup]
+traceExportGroups groups = trace ("\n"  <> "##########################" <> "\n\n" <> "-- | Export " <> show(length groups) <> " groups and "
+    <> show(length $ nub $ concat $ map (\g -> g ^. phylo_groupNgrams) groups) <> " terms"
+  ) groups
+