[FIX] FLOW / TFICF bug

src/Gargantext/API/Metrics.hs

@@ -56,8 +56,7 @@ type ScatterAPI = Summary "SepGen IncExc metrics"
                   :> QueryParamR "ngramsType" TabType
                   :> QueryParam  "limit"      Int
                   :> Post '[JSON] ()
-              :<|> "hash" :>
-                     Summary "Scatter Hash"
+              :<|> "hash" :> Summary "Scatter Hash"
                           :> QueryParam  "list"       ListId
                           :> QueryParamR "ngramsType" TabType
                           :> Get '[JSON] Text
@@ -143,8 +142,7 @@ type ChartApi = Summary " Chart API"
                :> QueryParamR "ngramsType" TabType
                :> QueryParam  "limit"      Int
                :> Post '[JSON] ()
-              :<|> "hash" :>
-                     Summary "Chart Hash"
+            :<|> "hash" :> Summary "Chart Hash"
                :> QueryParam  "list"       ListId
                :> QueryParamR "ngramsType" TabType
                :> Get '[JSON] Text
@@ -225,8 +223,7 @@ type PieApi = Summary "Pie Chart"
              :> QueryParamR "ngramsType" TabType
              :> QueryParam  "limit"      Int
              :> Post '[JSON] ()
-              :<|> "hash" :>
-                     Summary "Pie Hash"
+         :<|> "hash" :> Summary "Pie Hash"
                      :> QueryParam  "list"       ListId
                      :> QueryParamR "ngramsType" TabType
                      :> Get '[JSON] Text
@@ -280,7 +277,7 @@ updatePie' cId maybeListId tabType _maybeLimit = do
   node <- getNodeWith listId (Proxy :: Proxy HyperdataList)
   let hl = node ^. node_hyperdata
 
-  p <- pieData cId (ngramsTypeFromTabType tabType) MapTerm
+  p <- chartData cId (ngramsTypeFromTabType tabType) MapTerm
   _ <- updateHyperdata listId $ hl { _hl_pie = Just $ ChartMetrics p }
 
   pure $ ChartMetrics p

src/Gargantext/API/Node.hs

@@ -216,6 +216,7 @@ nodeAPI p uId id' = withAccess (Proxy :: Proxy (NodeAPI a)) Proxy uId (PathNode
            :<|> pairs       id'
            :<|> getPair     id'
 
+           -- VIZ
            :<|> scatterApi id'
            :<|> chartApi   id'
            :<|> pieApi     id'

src/Gargantext/Database/Action/Flow.hs

@@ -219,7 +219,6 @@ flowCorpusUser l user corpusName ctype ids = do
   _ <- insertDefaultNode NodeDashboard userCorpusId userId
   _ <- insertDefaultNode NodeGraph     userCorpusId userId
   --_ <- mkPhylo  userCorpusId userId
-
   -- Annuaire Flow
   -- _ <- mkAnnuaire  rootUserId userId
   pure userCorpusId

src/Gargantext/Text/Metrics/TFICF.hs

@@ -48,7 +48,7 @@ tficf :: TficfContext Count Total
       -> TFICF
 tficf (TficfInfra (Count ic) (Total it) )
       (TficfSupra (Count sc) (Total st) )
-            | it >= ic && st >= sc && it <= st = (ic/it) / log (sc/st)
+            | it >= ic && st >= sc {-&& it <= st-} = (ic/it) / log (sc/st)
             | otherwise            = panic $ "[ERR]" <> path <>" Frequency impossible"
 tficf _ _ = panic $ "[ERR]" <> path <> "Undefined for these contexts"
 

src/Gargantext/Viz/Chart.hs

@@ -19,7 +19,6 @@ import Data.Map (toList)
 import qualified Data.List as List
 import qualified Data.Map as Map
 import Data.Maybe (catMaybes)
-import Servant
 
 import Gargantext.Core.Types.Main
 import Gargantext.Database.Admin.Config
@@ -51,10 +50,10 @@ histoData cId = do
   pure (Histo ls css)
 
 
-pieData :: FlowCmdM env err m
+chartData :: FlowCmdM env err m
         => CorpusId -> NgramsType -> ListType
         -> m Histo
-pieData cId nt lt = do
+chartData cId nt lt = do
   ls' <- selectNodesWithUsername NodeList userMaster
   ls <- map (_node_id) <$> getListsWithParentId cId
   ts <- mapTermListRoot ls nt <$> getRepo
@@ -71,8 +70,6 @@ pieData cId nt lt = do
   pure (Histo dates (map round count))
 
 
-
-
 treeData :: FlowCmdM env err m
         => CorpusId -> NgramsType -> ListType
         -> m [MyTree]
@@ -90,22 +87,3 @@ treeData cId nt lt = do
   m  <- getListNgrams ls nt
   pure $ toTree lt cs' m
 
-
-treeData' :: FlowCmdM env ServerError m
-        => CorpusId -> NgramsType -> ListType
-        -> m [MyTree]
-treeData' cId nt lt = do
-  ls' <- selectNodesWithUsername NodeList userMaster
-  ls <- map (_node_id) <$> getListsWithParentId cId
-  ts <- mapTermListRoot ls nt <$> getRepo
-  
-  let
-    dico = filterListWithRoot lt ts
-    terms = catMaybes $ List.concat $ map (\(a,b) -> [Just a, b]) $ Map.toList dico
-  
-  cs' <- getNodesByNgramsOnlyUser cId (ls' <> ls) nt terms
-  
-  m  <- getListNgrams ls nt
-  pure $ toTree lt cs' m
-
-