Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
120
Issues
120
List
Board
Labels
Milestones
Merge Requests
7
Merge Requests
7
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
gargantext
haskell-gargantext
Commits
dc29199c
Commit
dc29199c
authored
Feb 11, 2022
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FEAT] Bulding phylo with graphviz
parent
e1b6117a
Changes
4
Show whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
149 additions
and
147 deletions
+149
-147
pkgs.nix
nix/pkgs.nix
+1
-0
package.yaml
package.yaml
+1
-0
PhyloExport.hs
src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
+1
-1
TemporalMatching.hs
src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
+146
-146
No files found.
nix/pkgs.nix
View file @
dc29199c
...
@@ -28,6 +28,7 @@ rec {
...
@@ -28,6 +28,7 @@ rec {
# gfortran7.cc.lib
# gfortran7.cc.lib
expat
expat
icu
icu
graphviz
];
];
libPaths
=
pkgs
.
lib
.
makeLibraryPath
nonhsBuildInputs
;
libPaths
=
pkgs
.
lib
.
makeLibraryPath
nonhsBuildInputs
;
shellHook
=
''
shellHook
=
''
...
...
package.yaml
View file @
dc29199c
...
@@ -203,6 +203,7 @@ library:
...
@@ -203,6 +203,7 @@ library:
-
postgresql-simple
-
postgresql-simple
-
pretty-simple
-
pretty-simple
-
probability
-
probability
-
process
-
product-profunctors
-
product-profunctors
-
profunctors
-
profunctors
-
protolude
-
protolude
...
...
src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
View file @
dc29199c
...
@@ -368,7 +368,7 @@ sortByBirthDate order export =
...
@@ -368,7 +368,7 @@ sortByBirthDate order export =
processSort
::
Sort
->
SeaElevation
->
PhyloExport
->
PhyloExport
processSort
::
Sort
->
SeaElevation
->
PhyloExport
->
PhyloExport
processSort
sort'
elev
export
=
case
sort'
of
processSort
sort'
elev
export
=
case
sort'
of
ByBirthDate
o
->
sortByBirthDate
o
export
ByBirthDate
o
->
sortByBirthDate
o
export
ByHierarchy
->
export
&
export_branches
.~
(
branchToIso'
(
_cons_start
elev
)
(
_cons_step
elev
)
ByHierarchy
_
->
export
&
export_branches
.~
(
branchToIso'
(
_cons_start
elev
)
(
_cons_step
elev
)
$
sortByHierarchy
0
(
export
^.
export_branches
))
$
sortByHierarchy
0
(
export
^.
export_branches
))
...
...
src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
View file @
dc29199c
...
@@ -109,7 +109,7 @@ toProximity nbDocs diago proximity egoNgrams targetNgrams targetNgrams' =
...
@@ -109,7 +109,7 @@ toProximity nbDocs diago proximity egoNgrams targetNgrams targetNgrams' =
then
targetNgrams
then
targetNgrams
else
union
targetNgrams
targetNgrams'
else
union
targetNgrams
targetNgrams'
in
weightedLogSim'
sens
nbDocs
diago
egoNgrams
pairNgrams
in
weightedLogSim'
sens
nbDocs
diago
egoNgrams
pairNgrams
Hamming
->
undefined
Hamming
_
->
undefined
------------------------
------------------------
-- | Local Matching | --
-- | Local Matching | --
...
...
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