seuil

src/Gargantext/Viz/Phylo/PhyloExport.hs

@@ -160,7 +160,7 @@ toDotEdge source target lbl edgeType = edge source target
 mergePointers :: [PhyloGroup] -> Map (PhyloGroupId,PhyloGroupId) Double
 mergePointers groups = 
     let toChilds  = fromList $ concat $ map (\g -> map (\(target,w) -> ((getGroupId g,target),w)) $ g ^. phylo_groupPeriodChilds) groups
-        toParents = fromList $ concat $ map (\g -> map (\(target,w) -> ((getGroupId g,target),w)) $ g ^. phylo_groupPeriodParents) groups
+        toParents = fromList $ concat $ map (\g -> map (\(target,w) -> ((target,getGroupId g),w)) $ g ^. phylo_groupPeriodParents) groups
     in  unionWith (\w w' -> max w w') toChilds toParents
 
 

src/Gargantext/Viz/Phylo/PhyloMaker.hs

@@ -207,6 +207,7 @@ toPhyloClique phylo phyloDocs = case (clique $ getConfig phylo) of
                                              $ map listToMatrix 
                                              $ map (\d -> ngramsToIdx (text d) (getRoots phylo)) docs
 
+
                                      in (prd, map (\cl -> PhyloClique cl 0 prd) $ getMaxCliques 0.001 cooc)) 
 
                                $ toList phyloDocs