[GRAPH] removing trace + unconnected nodes (some left still).

src/Gargantext/Viz/Graph/API.hs

@@ -24,7 +24,6 @@ Portability : POSIX
 module Gargantext.Viz.Graph.API
   where
 
-import Debug.Trace (trace)
 import Control.Lens (set, (^.), _Just, (^?))
 import Control.Monad.IO.Class (liftIO)
 import Data.Maybe (Maybe(..))
@@ -112,7 +111,7 @@ computeGraph cId nt v = do
          <$> groupNodesByNgrams ngs
          <$> getNodesByNgramsOnlyUser cId (lIds <> [lId]) nt (Map.keys ngs)
 
-  graph <- trace (show myCooc) $ liftIO $ cooc2graph 0 myCooc
+  graph <- liftIO $ cooc2graph 0 myCooc
   let graph' = set graph_metadata (Just metadata) graph
   pure graph' 
 

src/Gargantext/Viz/Graph/Tools.hs

@@ -89,7 +89,7 @@ data2graph labels coocs bridge conf partitions = do
                    , edge_confluence = maybe 0 identity $ Map.lookup (s,t) conf
                    -- , edge_confluence = maybe (panic "E: data2graph edges") identity $ Map.lookup (s,t) conf
                    , edge_id     = cs (show i) }
-                   | (i, ((s,t), d)) <- zip ([0..]::[Integer]) (Map.toList bridge), s /= t
+                   | (i, ((s,t), d)) <- zip ([0..]::[Integer]) (Map.toList bridge), s /= t, d > 0.001
                    ]
 
     pure $ Graph nodes edges Nothing