[NGRAMS,METRICS] WIP

src/Gargantext/Config.purs

@@ -112,6 +112,10 @@ offsetUrl o = "&offset=" <> show o
 orderUrl :: forall a. Show a => Maybe a -> UrlPath
 orderUrl = maybe "" (\x -> "&order=" <> show x)
 
+showTabType' :: TabType -> String
+showTabType' (TabCorpus  t) = show t
+showTabType' (TabPairing t) = show t
+
 tabTypeNgramsGet :: TabType -> UrlPath
 tabTypeNgramsGet (TabCorpus  t) = "listGet?ngramsType=" <> show t
 tabTypeNgramsGet (TabPairing t) = "listGet?ngramsType=" <> show t -- TODO
@@ -155,7 +159,11 @@ pathUrl c (NodeAPI nt) i = c.prePath <> nodeTypeUrl nt <> (maybe "" (\i' -> "/"
 pathUrl c (Search {limit,offset,orderBy}) _TODO =
   c.prePath <> "search/?dummy=dummy"
     <> offsetUrl offset <> limitUrl limit <> orderUrl orderBy
-
+pathUrl c (CorpusMetrics {tabType, listId, limit}) i =
+    pathUrl c (NodeAPI Corpus) i <> "/metrics"
+      <> "&list=" <> show listId
+      <> "&ngramsType=" <> showTabType' tabType
+      <> maybe "" (\x -> "&limit=" <> show x) limit
 
 ------------------------------------------------------------
 
@@ -233,6 +241,10 @@ data Path
             , offset   :: Offset
             , orderBy  :: Maybe OrderBy
             }
+  | CorpusMetrics { tabType :: TabType
+                  , listId  :: ListId
+                  , limit   :: Maybe Limit
+                  }
 
 data End = Back | Front
 type Id  = Int

src/Gargantext/Pages/Corpus/Metrics.purs

+module Gargantext.Pages.Corpus.Metrics where
+
+import Data.Argonaut (class DecodeJson, decodeJson, (.?))
+import Data.Maybe (Maybe(..))
+import Effect.Aff (Aff)
+import Gargantext.Config -- (End(..), Path(..), TabType, toUrl)
+import Gargantext.Config.REST (get)
+import React (ReactClass, ReactElement, createElement)
+import Thermite (Spec, Render, defaultPerformAction, simpleSpec, createClass)
+import Gargantext.Prelude
+import Gargantext.Types (TermList)
+import Gargantext.Components.Loader as Loader
+import Gargantext.Components.Charts.Options.ECharts
+import Gargantext.Components.Charts.Options.Series
+
+type Path =
+  { corpusId :: Int
+  , listId   :: Int
+  , tabType  :: TabType
+  , limit    :: Maybe Int
+  }
+
+newtype Metric = Metric
+  { label :: String
+  , x     :: Number
+  , y     :: Number
+  , cat   :: TermList
+  }
+
+instance decodeMetric :: DecodeJson Metric where
+  decodeJson json = do
+    obj   <- decodeJson json
+    label <- obj .? "label"
+    x     <- obj .? "x"
+    y     <- obj .? "y"
+    cat   <- obj .? "cat"
+    pure $ Metric { label, x, y, cat }
+
+newtype Metrics = Metrics
+  { "data" :: Array Metric
+  }
+
+instance decodeMetrics :: DecodeJson Metrics where
+  decodeJson json = do
+    obj <- decodeJson json
+    d   <- obj .? "data"
+    pure $ Metrics { "data": d }
+
+type Loaded  = Array Metric
+
+loadedMetricsSpec :: Spec {} (Loader.InnerProps Path Loaded ()) Void
+loadedMetricsSpec = simpleSpec defaultPerformAction render
+  where
+    render :: Render {} (Loader.InnerProps Path Loaded ()) Void
+    render dispatch {loaded} {} _ = [chart (scatterOptions loaded)]
+
+scatterOptions :: Loaded -> Options
+scatterOptions ds = Options
+  { mainTitle : "TODO Scatter test"
+  , subTitle  : "TODO Scatter subtitle"
+  , xAxis     : xAxis [] -- $ SeriesD2 $ seriesD2 Scatter 5.0 (_.x <$> ds)
+  , yAxis     : [ SeriesD2 $ seriesD2 Scatter 5.0 (_y <$> ds) ]
+  , yAxisFormat : (YAxisFormat { position : ""
+                               , visible  : true
+                               })
+  , addZoom     : false
+  }
+  where
+    _y (Metric {x,y}) = [x,y]
+
+getMetrics :: Path -> Aff Loaded
+getMetrics {corpusId, listId, limit, tabType} = do
+  Metrics ms <- get $ toUrl Back (CorpusMetrics {listId, tabType, limit}) $ Just corpusId
+  pure ms."data"
+
+metricsLoaderClass :: ReactClass (Loader.Props Path Loaded)
+metricsLoaderClass = Loader.createLoaderClass "MetricsLoader" getMetrics
+
+metricsLoader :: Loader.Props' Path Loaded -> ReactElement
+metricsLoader props = createElement metricsLoaderClass props []
+
+metricsSpec :: Spec {} Path Void
+metricsSpec = simpleSpec defaultPerformAction render
+  where
+    render :: Render {} Path Void
+    render dispatch path {} _ =
+      [ metricsLoader
+        { path
+        , component: createClass "LoadedMetrics" loadedMetricsSpec (const {})
+        } ]

src/Gargantext/Pages/Corpus/Tabs/Specs.purs

@@ -5,11 +5,13 @@ import Prelude hiding (div)
 import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Show (genericShow)
 import Data.List (fromFoldable)
+import Data.Maybe (Maybe(..))
 import Data.Tuple (Tuple(..))
 
 import Gargantext.Config (TabType(..), TabSubType(..))
 import Gargantext.Config (CTabNgramType(..), End(..), Path(..), TabSubType(..), TabType(..), toUrl)
 import Gargantext.Pages.Corpus.Tabs.Types (Props)
+import Gargantext.Pages.Corpus.Metrics (metricsSpec)
 
 import Gargantext.Pages.Corpus.Dashboard (globalPublis)
 import Gargantext.Components.NgramsTable as NT
@@ -55,8 +57,13 @@ statefulTabs =
 
 ngramsViewSpec :: {mode :: Mode} -> Spec Tab.State Props Tab.Action
 ngramsViewSpec {mode} =
+  noState (
+    cmapProps (\{loaded: {defaultListId}, path: corpusId} ->
+                {corpusId, listId: defaultListId, tabType, limit: Nothing})
+              metricsSpec <>
     cmapProps (\{loaded: {defaultListId}, path, dispatch} ->
                 {loaded: {defaultListId}, path, dispatch, tabType})
-            (noState NT.mainNgramsTableSpec)
+              NT.mainNgramsTableSpec
+  )
   where
     tabType = TabCorpus $ TabNgramType $ modeTabType mode