[Graph] Remove node limit in clusters in legend

src/Gargantext/Components/GraphExplorer/Sidebar.purs

@@ -130,10 +130,6 @@ sideTabLegendCpt = here.component "sideTabLegend" cpt where
 
     legend' /\ legendBox <- R2.useBox' legend
 
-    -- | Computed
-    -- |
-    let
-      maxItemPerCluster = 4
 
     -- | Hooks
     -- |
@@ -144,7 +140,6 @@ sideTabLegendCpt = here.component "sideTabLegend" cpt where
       (   getter _.id_
       >>> GEU.takeGreatestNodeByCluster
             hyperdataGraph
-            maxItemPerCluster
       )
 
     -- For each provided Cluster (see Legend), count the number of nodes

src/Gargantext/Components/GraphExplorer/Utils.purs

@@ -78,8 +78,8 @@ normalizeNodeSize minSize maxSize ns = over traversed (over sizeLens (\s -> minS
 
 ------------------------------------------------------------------------
 
-takeGreatestNodeByCluster :: GET.HyperdataGraph -> Int -> Int -> Array GEGT.Node
-takeGreatestNodeByCluster graphData take clusterId
+takeGreatestNodeByCluster :: GET.HyperdataGraph -> Int -> Array GEGT.Node
+takeGreatestNodeByCluster graphData clusterId
   =   graphData
   #   getter _.graph
   >>> getter _.nodes
@@ -91,7 +91,6 @@ takeGreatestNodeByCluster graphData take clusterId
   >>> A.sortWith
       ( getter _.size
       )
-  >>> A.takeEnd take
   >>> A.reverse
 
 countNodeByCluster :: GET.HyperdataGraph -> Int -> GEGT.ClusterCount