fix accuracy

src/Gargantext/Viz/AdaptativePhylo.hs

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

src/Gargantext/Viz/Phylo/PhyloExport.hs

@@ -182,13 +182,15 @@ exportToDot phylo export =
             graphAttrs [Rank SameRank]
 
             -- | 3) group the branches by hierarchy
-            mapM (\branches -> 
-                    subgraph (Str "Branches clade") $ do
-                        graphAttrs [Rank SameRank]
+            -- mapM (\branches -> 
+            --         subgraph (Str "Branches clade") $ do
+            --             graphAttrs [Rank SameRank]
+
+            --             -- | 4) create a node for each branch
+            --             mapM branchToDotNode branches
+            --     ) $ elems $ fromListWith (++) $ map (\b -> ((init . snd) $ b ^. branch_id,[b])) $ export ^. export_branches
 
-                        -- | 4) create a node for each branch
-                        mapM branchToDotNode branches
-                ) $ elems $ fromListWith (++) $ map (\b -> ((init . snd) $ b ^. branch_id,[b])) $ export ^. export_branches
+            mapM branchToDotNode $ export ^. export_branches
 
         -- | 5) create a layer for each period
         _ <- mapM (\period ->