Skip to content

haskell-gargantext
haskell-gargantext
Commit da694a44 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

Merge remote-tracking branch 'origin/maj-struct-id' into dev

parents a06badd4 27d618cc
Show whitespace changes
Inline Side-by-side
Showing with 58 additions and 46 deletions
src/Gargantext/Ext/IMT.hs
View file @ da694a44
...@@ -9,11 +9,12 @@ Portability : POSIX ...@@ -9,11 +9,12 @@ Portability : POSIX
-} -}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
module Gargantext.Ext.IMT where module Gargantext.Ext.IMT where
import Gargantext.Prelude import Gargantext.Prelude
import Data.Text (Text, pack, splitOn) import Data.Text (Text, splitOn)
import Data.Map (Map) import Data.Map (Map)
import qualified Data.Set as S import qualified Data.Set as S
...@@ -31,58 +32,69 @@ data School = School { school_shortName :: Text ...@@ -31,58 +32,69 @@ data School = School { school_shortName :: Text
schools :: [School] schools :: [School]
schools = [ School schools = [ School
(pack "Mines Albi-Carmaux") ("Mines Albi-Carmaux")
(pack "Mines Albi-Carmaux - École nationale supérieure des Mines d'Albi‐Carmaux") ("Mines Albi-Carmaux - École nationale supérieure des Mines d'Albi‐Carmaux")
(pack "469216") ("469216")
, School , School
(pack "Mines Alès") ("Mines Alès")
(pack "EMA - École des Mines d'Alès") ("EMA - École des Mines d'Alès")
(pack "6279") ("6279")
, School , School
(pack "Mines Douai") ("Mines Douai")
(pack "Mines Douai EMD - École des Mines de Douai") ("Mines Douai EMD - École des Mines de Douai")
(pack "224096") ("224096")
, School , School
(pack "Mines Nantes") ("Mines Lille")
(pack "Mines Nantes - Mines Nantes") ("Mines Lille - École des Mines de Lille")
(pack "84538") ("144103")
-- , School
-- (pack "Mines ParisTech")
-- (pack "MINES ParisTech - École nationale supérieure des mines de Paris")
-- (pack "301492")
--
, School , School
(pack "Mines Saint-Étienne") ("IMT Lille Douai")
(pack "Mines Saint-Étienne MSE - École des Mines de Saint-Étienne") ("IMT Lille Douai")
(pack "29212") ("497330")
, School , School
(pack "Télécom Bretagne") ("Mines Nantes")
(pack "Télécom Bretagne") ("Mines Nantes - Mines Nantes")
(pack "301262") ("84538")
, School , School
(pack "Télécom École de Management") ("Télécom Bretagne")
(pack "TEM - Télécom Ecole de Management") ("Télécom Bretagne")
(pack "301442") ("301262")
, School , School
(pack "Télécom ParisTech") ("IMT Atlantique")
(pack "Télécom ParisTech") ("IMT Atlantique - IMT Atlantique Bretagne-Pays de la Loire")
(pack "300362") ("481355")
, School , School
(pack "Télécom SudParis") ("Mines Saint-Étienne")
(pack "TSP - Télécom SudParis") ("Mines Saint-Étienne MSE - École des Mines de Saint-Étienne")
(pack "352124") ("29212")
, School
("Télécom École de Management")
("TEM - Télécom Ecole de Management")
("301442")
, School
("IMT Business School")
("IMT Business School")
("542824")
, School
("Télécom ParisTech")
("Télécom ParisTech")
("300362")
, School
("Télécom SudParis")
("TSP - Télécom SudParis")
("352124")
, School
("ARMINES")
("ARMINES")
("300362")
, School
("Eurecom")
("Eurecom")
("421532")
, School , School
(pack "IMT Atlantique") ("Mines ParisTech")
(pack "IMT Atlantique - IMT Atlantique Bretagne-Pays de la Loire") ("MINES ParisTech - École nationale supérieure des mines de Paris")
(pack "481355") ("301492")
] ]
mapIdSchool :: Map Text Text mapIdSchool :: Map Text Text
...@@ -108,7 +120,7 @@ publisBySchool hal_data' = Gargantext.Prelude.map (\(i,n) -> (M.lookup i mapIdSc ...@@ -108,7 +120,7 @@ publisBySchool hal_data' = Gargantext.Prelude.map (\(i,n) -> (M.lookup i mapIdSc
$ F.freq $ F.freq
$ DL.concat $ DL.concat
$ DV.toList $ DV.toList
$ DV.map (\n -> splitOn (pack ", ") (csvHal_instStructId_i n) ) $ DV.map (\n -> splitOn ( ", ") (csvHal_instStructId_i n) )
$ DV.filter (\n -> csvHal_publication_year n == 2017) hal_data' $ DV.filter (\n -> csvHal_publication_year n == 2017) hal_data'
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