Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
H
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Przemyslaw Kaminski
haskell-gargantext
Commits
8c268b5c
Commit
8c268b5c
authored
Apr 11, 2022
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[DOC]
parent
b4ef778a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
5 deletions
+9
-5
gargantext.cabal
gargantext.cabal
+2
-2
Tools.hs
src/Gargantext/Core/Viz/Graph/Tools.hs
+7
-3
No files found.
gargantext.cabal
View file @
8c268b5c
cabal-version:
0.0.5.8.5
cabal-version:
1.12
-- This file has been generated from package.yaml by hpack version 0.34.4.
-- This file has been generated from package.yaml by hpack version 0.34.4.
--
--
-- see: https://github.com/sol/hpack
-- see: https://github.com/sol/hpack
name: gargantext
name: gargantext
version: 0.0.5.8.5
version:
0.0.5.8.5
synopsis: Search, map, share
synopsis: Search, map, share
description: Please see README.md
description: Please see README.md
category: Data
category: Data
...
...
src/Gargantext/Core/Viz/Graph/Tools.hs
View file @
8c268b5c
...
@@ -40,6 +40,7 @@ import qualified Data.HashMap.Strict as HashMap
...
@@ -40,6 +40,7 @@ import qualified Data.HashMap.Strict as HashMap
import
qualified
Data.List
as
List
import
qualified
Data.List
as
List
import
qualified
Data.Map
as
Map
import
qualified
Data.Map
as
Map
import
qualified
Data.Set
as
Set
import
qualified
Data.Set
as
Set
import
qualified
Data.Text
as
Text
import
qualified
Data.Vector.Storable
as
Vec
import
qualified
Data.Vector.Storable
as
Vec
import
qualified
Graph.BAC.ProxemyOptim
as
BAC
import
qualified
Graph.BAC.ProxemyOptim
as
BAC
import
qualified
IGraph
as
Igraph
import
qualified
IGraph
as
Igraph
...
@@ -105,14 +106,17 @@ cooc2graphWith' doPartitions distance threshold myCooc = do
...
@@ -105,14 +106,17 @@ cooc2graphWith' doPartitions distance threshold myCooc = do
(
distanceMap
,
diag
,
ti
)
=
doDistanceMap
distance
threshold
myCooc
(
distanceMap
,
diag
,
ti
)
=
doDistanceMap
distance
threshold
myCooc
--{- -- Debug
--{- -- Debug
saveAsFileDebug
"/tmp/distanceMap"
distanceMap
--
saveAsFileDebug "/tmp/distanceMap" distanceMap
saveAsFileDebug
"/tmp/distanceMap.keys"
(
List
.
length
$
Map
.
keys
distanceMap
)
--
saveAsFileDebug "/tmp/distanceMap.keys" (List.length $ Map.keys distanceMap)
-- printDebug "similarities" similarities
-- printDebug "similarities" similarities
--}
--}
partitions
<-
if
(
Map
.
size
distanceMap
>
0
)
partitions
<-
if
(
Map
.
size
distanceMap
>
0
)
then
doPartitions
distanceMap
then
doPartitions
distanceMap
else
panic
"Text.Flow: DistanceMap is empty"
else
panic
$
Text
.
unlines
[
"[Gargantext.C.V.Graph.Tools] Similarity Matrix is empty"
,
"Maybe you should add more Map Terms in your list"
,
"Tutorial: link todo"
]
let
let
nodesApprox
::
Int
nodesApprox
::
Int
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment