[GraphExplorer] mount the Sigma component only once

parent fe72f3d0
...@@ -107,12 +107,12 @@ render d p (State s) c = ...@@ -107,12 +107,12 @@ render d p (State s) c =
, option [value "imtNew.json"] [text "imtNew.json"] , option [value "imtNew.json"] [text "imtNew.json"]
-- , option [value "exemplePhyloBipartite.gexf"] [text "exemplePhyloBipartite.gexf"] -- , option [value "exemplePhyloBipartite.gexf"] [text "exemplePhyloBipartite.gexf"]
] ]
] , sigma
<> { graph:
-- TODO cleanup
case s.sigmaGraphData of case s.sigmaGraphData of
Nothing -> [] Nothing -> SigmaGraphData {nodes: [], edges: []}
Just gData -> Just gData -> gData
[ sigma { graph: gData
, renderer : canvas , renderer : canvas
, settings : mySettings , settings : mySettings
, style : sStyle { height : "95%"} , style : sStyle { height : "95%"}
...@@ -126,9 +126,8 @@ render d p (State s) c = ...@@ -126,9 +126,8 @@ render d p (State s) c =
, forceAtlas2 forceAtlas2Config , forceAtlas2 forceAtlas2Config
, edgeShapes {"default" : edgeShape.curve} , edgeShapes {"default" : edgeShape.curve}
] ]
, dispLegend s.legendData
] ]
<>
[dispLegend s.legendData]
forceAtlas2Config :: { slowDown :: Number forceAtlas2Config :: { slowDown :: Number
, startingIterations :: Number , startingIterations :: Number
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment