[FEAT] User can chose the Bridgeness method

src/Gargantext/Components/Forest/Tree/Node/Action/Update.purs

@@ -2,7 +2,7 @@ module Gargantext.Components.Forest.Tree.Node.Action.Update where
 
 import Gargantext.Prelude
 
-import Gargantext.Components.Forest.Tree.Node.Action.Update.Types (Charts(..), Granularity(..), GraphMetric(..), Method(..), PartitionMethod(..), UpdateNodeParams(..), Strength(..))
+import Gargantext.Components.Forest.Tree.Node.Action.Update.Types (Charts(..), Granularity(..), GraphMetric(..), Method(..), PartitionMethod(..), UpdateNodeParams(..), Strength(..), BridgenessMethod(..))
 
 import DOM.Simple.Console (log3)
 import Data.Either (Either(..))
@@ -90,6 +90,9 @@ updateGraphCpt = here.component "updateGraph" cpt where
     methodGraphClustering <- T.useBox Spinglass
     methodGraphClustering' <- T.useLive T.unequal methodGraphClustering
 
+    methodGraphBridgeness <- T.useBox BridgenessMethod_Basic
+    methodGraphBridgeness' <- T.useLive T.unequal methodGraphBridgeness
+
     let
       callback :: Action -> Aff Unit
       callback = dispatch >=> \_ -> dispatch CloseBox
@@ -100,6 +103,15 @@ updateGraphCpt = here.component "updateGraph" cpt where
                                  , callback: \val -> T.write_ val methodGraphMetric
                                  , print: show } []
 
+
+
+                 , H.text "Bridgness Method : Basic is ok, Advanced in Development"
+                 , formChoiceSafe { items: [BridgenessMethod_Basic, BridgenessMethod_Advanced]
+                                 , default: methodGraphBridgeness'
+                                 , callback: \val -> T.write_ val methodGraphBridgeness
+                                 , print: show } []
+
+
 {-
                  , H.text "NodeType 1 ?"
                  , formChoiceSafe { items: [GT.CTabTerms, GT.CTabSources, GT.CTabAuthors, GT.CTabInstitutes]
@@ -113,6 +125,7 @@ updateGraphCpt = here.component "updateGraph" cpt where
                                  , callback: \val -> T.write_ val methodGraphNodeType2
                                  , print: show } []
                                  -}
+
                  , H.text "Show Strong (expected) links or weak (maybe unexpected) links?"
                  , formChoiceSafe { items: [Strong, Weak]
                                  , default: methodGraphEdgesStrength'
@@ -128,6 +141,7 @@ updateGraphCpt = here.component "updateGraph" cpt where
                  ]
                  (submitButton (UpdateNode $ UpdateNodeParamsGraph { methodGraphMetric: methodGraphMetric'
                                                                    , methodGraphClustering: methodGraphClustering'
+                                                                   , methodGraphBridgeness: methodGraphBridgeness'
                                                                    , methodGraphEdgesStrength : methodGraphEdgesStrength'
                                                                    , methodGraphNodeType1 : methodGraphNodeType1'
                                                                    , methodGraphNodeType2 : methodGraphNodeType2'

src/Gargantext/Components/Forest/Tree/Node/Action/Update/Types.purs

@@ -16,6 +16,7 @@ data UpdateNodeParams
   | UpdateNodeParamsGraph { methodGraphMetric :: GraphMetric
                           , methodGraphEdgesStrength :: Strength
                           , methodGraphClustering :: PartitionMethod
+                          , methodGraphBridgeness :: BridgenessMethod
                           , methodGraphNodeType1  :: GT.CTabNgramType
                           , methodGraphNodeType2  :: GT.CTabNgramType
                           }
@@ -31,9 +32,9 @@ instance JSON.WriteForeign UpdateNodeParams where
   writeImpl (UpdateNodeParamsList { methodList }) =
     JSON.writeImpl { type: "UpdateNodeParamsList"
                    , methodList }
-  writeImpl (UpdateNodeParamsGraph { methodGraphMetric, methodGraphClustering, methodGraphEdgesStrength, methodGraphNodeType1, methodGraphNodeType2}) =
+  writeImpl (UpdateNodeParamsGraph { methodGraphMetric, methodGraphClustering, methodGraphBridgeness, methodGraphEdgesStrength, methodGraphNodeType1, methodGraphNodeType2}) =
     JSON.writeImpl { type: "UpdateNodeParamsGraph"
-                   , methodGraphMetric, methodGraphClustering, methodGraphEdgesStrength, methodGraphNodeType1, methodGraphNodeType2}
+                   , methodGraphMetric, methodGraphClustering, methodGraphBridgeness, methodGraphEdgesStrength, methodGraphNodeType1, methodGraphNodeType2}
   writeImpl (UpdateNodeParamsTexts { methodTexts }) =
     JSON.writeImpl { type: "UpdateNodeParamsTexts"
                    , methodTexts }
@@ -99,6 +100,22 @@ instance Read PartitionMethod where
 instance JSON.ReadForeign PartitionMethod where readImpl = JSONG.enumSumRep
 instance JSON.WriteForeign PartitionMethod where writeImpl = JSON.writeImpl <<< show
 
+
+data BridgenessMethod = BridgenessMethod_Basic
+                      | BridgenessMethod_Advanced
+
+derive instance Generic BridgenessMethod _
+derive instance Eq BridgenessMethod
+instance Show BridgenessMethod where show = genericShow
+instance Read BridgenessMethod where
+  read "BridgenessMethod_Basic"     = Just BridgenessMethod_Basic
+  read "BridgenessMethod_Advanced"  = Just BridgenessMethod_Advanced
+  read _           = Nothing
+instance JSON.ReadForeign BridgenessMethod where readImpl = JSONG.enumSumRep
+instance JSON.WriteForeign BridgenessMethod where writeImpl = JSON.writeImpl <<< show
+
+
+
 ----------------------------------------------------------------------
 
 data Granularity = NewNgrams | NewTexts | Both