bug fix

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) -> ((target,getGroupId g),w)) $ g ^. phylo_groupPeriodParents) groups
+        toParents = fromList $ concat $ map (\g -> map (\(target,w) -> ((getGroupId g,target),w)) $ g ^. phylo_groupPeriodParents) groups
     in  unionWith (\w w' -> max w w') toChilds toParents
 
 

src/Gargantext/Viz/Phylo/PhyloMaker.hs

@@ -206,7 +206,7 @@ toPhyloClique phylo phyloDocs = case (clique $ getConfig phylo) of
                                              $ foldl sumCooc empty
                                              $ map listToMatrix 
                                              $ map (\d -> ngramsToIdx (text d) (getRoots phylo)) docs
-                                     in (prd, map (\cl -> PhyloClique cl 0 prd) $ getMaxCliques 0 cooc)) 
+                                     in (prd, map (\cl -> PhyloClique cl 0 prd) $ getMaxCliques 0.1 cooc)) 
                                $ toList phyloDocs
                           mcl' = mcl `using` parList rdeepseq                               
                        in fromList mcl' 

src/Gargantext/Viz/Phylo/TemporalMatching.hs

@@ -144,6 +144,13 @@ reduceDiagos :: Map Date Cooc -> Map Int Double
 reduceDiagos diagos = mapKeys (\(k,_) -> k)
                     $ foldl (\acc diago -> unionWith (+) acc diago) empty (elems diagos)
 
+filterPointersByPeriod :: [Pointer] -> [Pointer]
+filterPointersByPeriod pts = 
+  let pts' = sortOn (fst . fst . fst) pts
+      inf  = (fst . fst . fst) $ head' "filterPointersByPeriod" pts'
+      sup  = (fst . fst . fst) $ last' "filterPointersByPeriod" pts'
+   in nub 
+    $ filter (\pt -> ((fst . fst . fst) pt == inf) || ((fst . fst . fst) pt == sup)) pts'
 
 phyloGroupMatching :: [[(PhyloGroupId,[Int])]] -> Filiation -> Proximity -> Map Date Double -> Map Date Cooc
                    -> Double -> [Pointer] -> (PhyloGroupId,[Int]) -> [Pointer]
@@ -152,7 +159,8 @@ phyloGroupMatching candidates fil proxi docs diagos thr oldPointers (id,ngrams)
           -- | let's find new pointers
           then if null nextPointers
             then []
-            else head' "phyloGroupMatching"
+            else filterPointersByPeriod
+               $ head' "phyloGroupMatching"
                -- | Keep only the best set of pointers grouped by proximity
                $ groupBy (\pt pt' -> snd pt == snd pt')
                $ reverse $ sortOn snd $ head' "pointers" nextPointers

src/Gargantext/Viz/Phylo/Tools.hs

@@ -116,7 +116,6 @@ listToEqualCombi l = [(x,y) | x <- l, y <- l, x == y]
 listToPairs :: Eq a => [a] -> [(a,a)]
 listToPairs l = (listToEqualCombi l) ++ (listToUnDirectedCombi l)
 
-
 -- | To get all combinations of a list and apply a function to the resulting list of pairs
 listToDirectedCombiWith :: Eq a => forall b. (a -> b) -> [a] -> [(b,b)]
 listToDirectedCombiWith f l = [(f x,f y) | x <- l, y <- l, x /= y]