Skip to content

P
purescript-gargantext
Commit 9dd3448b authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[DASHBOARD] refactored + design - real data.

parent a117110b
Hide whitespace changes
Inline Side-by-side
Showing with 696 additions and 3582 deletions
package-lock.json
View file @ 9dd3448b
This source diff could not be displayed because it is too large. You can view the blob instead.
src/Dashboard.purs deleted 100644 → 0
View file @ a117110b
module Dashboard where
import Charts.ECharts
import DOM (DOM)
import Data.Unit (Unit)
import Prelude (pure, unit)
import React.DOM (div, h1, text, title)
import React.DOM.Props (className)
import Thermite (PerformAction, Render, Spec, simpleSpec)
type State = Unit
data Action = None
initialState :: State
initialState = unit
performAction :: forall eff props. PerformAction (dom :: DOM | eff) State props Action
performAction _ _ _ = pure unit
render :: forall props. Render State props Action
render dispatch _ state _ = [
h1 [] [text "IMT DashBoard"]
, histogram1
, div [className "row"] [
div [className "col-md-4 content"] [histogram2]
, div [className "col-md-4 content"] [histogram3]
, div [className "col-md-4 content"] [histogram4]
]
]
layoutDashboard :: forall props eff. Spec (dom :: DOM | eff) State props Action
layoutDashboard = simpleSpec performAction render
src/DocView.purs
View file @ 9dd3448b
...@@ -3,7 +3,7 @@ module DocView where ...@@ -3,7 +3,7 @@ module DocView where
import Data.Argonaut import Data.Argonaut
import Data.Generic (class Generic, gShow) import Data.Generic (class Generic, gShow)
import Chart (histogram2, p'') import Gargantext.Chart (histogram2, p'')
import Control.Monad.Eff.Class (liftEff) import Control.Monad.Eff.Class (liftEff)
import Control.Monad.Aff (Aff, attempt) import Control.Monad.Aff (Aff, attempt)
import Control.Monad.Aff.Class (liftAff) import Control.Monad.Aff.Class (liftAff)
...@@ -187,7 +187,7 @@ performAction LoadData _ _ = void do ...@@ -187,7 +187,7 @@ performAction LoadData _ _ = void do
loadPage :: forall eff. Aff (ajax :: AJAX, console :: CONSOLE | eff) (Either String CorpusTableData) loadPage :: forall eff. Aff (ajax :: AJAX, console :: CONSOLE | eff) (Either String CorpusTableData)
loadPage = do loadPage = do
res <- get "http://localhost:8008/corpus/472764/facet/documents/table" res <- get "http://localhost:8008/corpus/472764/facet/documents/table?offset=0&limit=10"
case res of case res of
Left err -> do Left err -> do
_ <- liftEff $ log $ show err _ <- liftEff $ log $ show err
......
src/Chart.purs → src/Gargantext/Chart.purs
View file @ 9dd3448b
module Chart where module Gargantext.Chart where
import Prelude (($), (<<<), (<$>)) import Prelude (($), (<<<), (<$>))
......
src/Charts/Color.purs → src/Gargantext/Charts/Color.purs
View file @ 9dd3448b
module Charts.Color module Gargantext.Charts.Color
( ( ChartColor()
ChartColor(), , chartColor
chartColor , transparent
) where ) where
import Prelude ((<<<)) import Prelude ((<<<))
import CSS (Color, toHexString) import CSS (Color, toHexString)
import Color (rgba)
newtype ChartColor = ChartColor String newtype ChartColor = ChartColor String
transparent :: Color
transparent = rgba 255 255 255 0.0
chartColor :: Color -> ChartColor chartColor :: Color -> ChartColor
chartColor = ChartColor <<< toHexString chartColor = ChartColor <<< toHexString
src/Charts/Data.purs → src/Gargantext/Charts/Data.purs
View file @ 9dd3448b
module Charts.Data where module Gargantext.Charts.Data where
import Charts.Font (TextStyle, Icon) import Gargantext.Charts.Font (TextStyle, Icon)
import Prelude ((<<<)) import Prelude ((<<<))
import Unsafe.Coerce (unsafeCoerce) import Unsafe.Coerce (unsafeCoerce)
......
src/Charts/ECharts.purs → src/Gargantext/Charts/ECharts.purs
View file @ 9dd3448b
module Charts.ECharts where module Gargantext.Charts.ECharts where
import Prelude (($), map, class Show, show, (<<<), (==))
import Data.Array (length)
import CSS (black, blue, italic, violet, white, yellow) import CSS (black, blue, italic, violet, white, yellow)
import CSS.Common (normal) import CSS.Common (normal)
import Charts.Series import Gargantext.Charts.Series
import Charts.Data import Gargantext.Charts.Data
import Charts.Color (chartColor) import Gargantext.Charts.Color (chartColor, transparent)
import Charts.Font (IconOptions(..), Shape(..), TextStyle, chartFontStyle, chartFontWeight, icon) import Gargantext.Charts.Font (IconOptions(..), Shape(..), TextStyle, chartFontStyle, chartFontWeight, icon)
import Charts.Legend (legendType, LegendMode(..), PlainOrScroll(..), selectedMode, Orientation(..), orient) import Gargantext.Charts.Legend (legendType, LegendMode(..), PlainOrScroll(..), selectedMode, Orientation(..), orient)
import Charts.Position (Align(..), LeftRelativePosition(..), TopRelativePosition(..), numberPosition, percentPosition, relativePosition) import Gargantext.Charts.Position (Align(..), LeftRelativePosition(..), TopRelativePosition(..), numberPosition, percentPosition, relativePosition)
import Charts.Type (DataZoom, Echarts, Legend, Option, Title, Tooltip, XAxis, YAxis) import Gargantext.Charts.Type (DataZoom, Echarts, Legend, Option, Title, Tooltip, XAxis, YAxis)
import Data.Either (Either(..)) import Data.Either (Either(..))
import Data.Maybe (Maybe(..)) import Data.Maybe (Maybe(..))
import Prelude (($))
import React as R import React as R
import React.DOM (p) import React.DOM (p)
foreign import eChartsClass :: R.ReactClass Echarts foreign import eChartsClass :: R.ReactClass Echarts
chart :: Options -> R.ReactElement
chart = echarts <<< chartWith <<< opts
chartWith :: Option -> Echarts
chartWith opts = { className: Nothing
, style: Nothing
, theme: Nothing
, group: Nothing
, option: opts
, initOpts: Nothing
, notMerge: Nothing
, lazyUpdate: Nothing
, loading: Nothing
, optsLoading: Nothing
, onReady: Nothing
, resizable: Nothing
, onEvents: Nothing
}
echarts :: forall eff. Echarts -> R.ReactElement echarts :: forall eff. Echarts -> R.ReactElement
echarts chart = R.createElementDynamic eChartsClass chart [] echarts chart = R.createElementDynamic eChartsClass chart []
type MainTitle = String
type SubTitle = String
title :: MainTitle -> SubTitle -> Title
title mainTitle subTitle =
{
id: ""
,show: true
,text: mainTitle
,link: ""
,target: "blank"
,textStyle: textStyle
,subtext: subTitle
,sublink: ""
,subtarget: "blank"
,subtextStyle: textStyle2
,padding: 10.0
,itemGap: 0.0
,zlevel: 2.0
,z: 2.0
,left: relativePosition (Relative LeftPos)
,top: relativePosition (Relative Top)
,right: numberPosition 60.0
,bottom: percentPosition 40.0
,backgroundColor: chartColor transparent
,borderColor: chartColor transparent
,borderWidth: 0.0
,borderRadius: 0.0
,shadowBlur: 0.0
,shadowColor: chartColor transparent
,shadowOffsetX: 0.0
,shadowOffsetY: 0.0
}
legend :: Legend legend :: Legend
legend = legend =
{ {
...@@ -58,50 +113,16 @@ data2 = {name: "Favorites", icon: icon $ Shape Circle, textStyle: textStyle'} ...@@ -58,50 +113,16 @@ data2 = {name: "Favorites", icon: icon $ Shape Circle, textStyle: textStyle'}
data3 :: DataN data3 :: DataN
data3 = {name: "Test", icon: icon $ Shape Diamond, textStyle: textStyle'} data3 = {name: "Test", icon: icon $ Shape Diamond, textStyle: textStyle'}
xAxis' :: XAxis xAxis :: Array String -> XAxis
xAxis' = xAxis xs = { "data": xData xs
{ , "type": "category"
"data": [xData1, xData2, xData3] , axisTick: {alignWithLabel: true}
, "type": "category" , show: if (length xs == 0) then false else true
, axisTick: {alignWithLabel: true} }
, show: true where
} xData :: Array String -> Array DataV
xData xs = map (\x -> {value : x, textStyle : textStyle'}) xs
xAxis'' :: XAxis
xAxis'' =
{
"data": [xData1, xData2, xData3, xData4, xData5]
, "type": "category"
, axisTick: {alignWithLabel: true}
, show: true
}
xAxisVoid :: XAxis
xAxisVoid =
{
"data": []
, "type": "category"
, axisTick: {alignWithLabel: true}
, show: false
}
xData1 :: DataV
xData1 = {value: "Jan", textStyle: textStyle'}
xData2 :: DataV
xData2 = {value: "Feb", textStyle: textStyle'}
xData3 :: DataV
xData3 = {value: "Mar", textStyle: textStyle'}
xData4 :: DataV
xData4 = {value: "Apr", textStyle: textStyle'}
xData5 :: DataV
xData5 = {value: "May", textStyle: textStyle'}
xDataVoid :: DataV
xDataVoid = {value: "", textStyle: textStyle'}
yDataVoid :: YAxis yDataVoid :: YAxis
yDataVoid = yDataVoid =
...@@ -120,7 +141,7 @@ yData1 = ...@@ -120,7 +141,7 @@ yData1 =
"type": "value" "type": "value"
, name: "data" , name: "data"
, min: 0 , min: 0
, position: "right" , position: "left"
, axisLabel: {formatter: "{value}"} , axisLabel: {formatter: "{value}"}
, show: true , show: true
} }
...@@ -132,45 +153,69 @@ tooltip' = ...@@ -132,45 +153,69 @@ tooltip' =
, formatter: Nothing , formatter: Nothing
} }
seriesBar :: Series
seriesBar = series :: SeriesShape -> SeriesName -> Array DataS -> Series
{ series sh name ss = { name: name
name: "Big Bar Data" , "type": seriesType sh
, "type": seriesType Bar , "data": ss
, "data": [{name: "Test1", value: 12.0},
{name: "Test2", value: 20.0},
{name: "Test4", value: 35.0},
{name: "Test5", value: 2.0},
{name: "Test3", value: 32.0}
]
} }
seriesHBar :: Series data YAxisFormat = YAxisFormat { position :: String
seriesHBar = , visible :: Boolean
{ }
name: "Funnel Data"
, "type": seriesType Funnel data Options = Options { mainTitle :: MainTitle
, "data": [{name: "Test1", value: 60.0}, , subTitle :: SubTitle
{name: "Test2", value: 100.0}, , xAxis :: XAxis
{name: "Test4", value: 40.0}, , yAxis :: Array Series
{name: "Test5", value: 65.0}, , yAxisFormat :: YAxisFormat
{name: "Test3", value: 32.0} , addZoom :: Boolean
] }
opts :: Options -> Option
opts (Options { mainTitle : mainTitle
, subTitle : subTitle
, xAxis : xs
, yAxis : ss
, yAxisFormat : (YAxisFormat { position : position
, visible : visible
})
, addZoom : addZoom}) =
{ title: title mainTitle subTitle
, legend : legend
, tooltip: { trigger: "axis"
, formatter: Nothing
}
, grid : {containLabel: true}
, xAxis : xs
, series : ss
, yAxis : { "type": "value"
, name: "data"
, min: 0
, position: position
, axisLabel: {formatter: "{value}"}
, show: visible
}
,dataZoom: if addZoom then [zoom Slider, zoom Inside] else []
} }
seriesLine :: Series
seriesLine = data Zoom = Slider | Inside
{
name: "Line Data" instance showZoom :: Show Zoom where
, "type": seriesType Line show Slider = "slider"
, "data": [{name: "Test1", value: 50.0}, show Inside = "inside"
{name: "Test2", value: 45.0},
{name: "Test3", value: 65.0}, zoom :: Zoom -> DataZoom
{name: "Test4", value: 15.0}, zoom z = {
{name: "Test5", value: 83.0} "type": show z
] ,xAxisIndex: 0
,filterMode: "empty"
,start: 0
,end: 100
} }
seriesPie :: Series seriesPie :: Series
seriesPie = seriesPie =
{ {
...@@ -184,98 +229,7 @@ seriesPie = ...@@ -184,98 +229,7 @@ seriesPie =
] ]
} }
seriesWave :: Series
seriesWave =
{
name: "Bar Data"
, "type": seriesType Bar
, "data": [{name: "val1", value: 50.0},
{name: "val2", value: 20.0},
{name: "val5", value: 100.0}]
}
optLineBar :: Option
optLineBar =
{
title: title
,legend: legend
,tooltip: tooltip'
,grid: {containLabel: true}
,xAxis: xAxis''
,yAxis: yData1
,series: [seriesBar, seriesLine]
,dataZoom: [dz1', dz1', dz2', dz2']
}
optSunburst :: Option
optSunburst =
{
title: title
,legend: legend
,tooltip: tooltip'
,grid: {containLabel: true}
,xAxis: xAxisVoid
,yAxis: yDataVoid
,series: [seriesPie]
,dataZoom: []
}
optHBar :: Option
optHBar =
{
title: title
,legend: legend
,tooltip: tooltip'
,grid: {containLabel: true}
,xAxis: xAxisVoid
,yAxis: yDataVoid
,series: [seriesHBar]
,dataZoom: []
}
optWave :: Option
optWave =
{
title: title
,legend: legend
,tooltip: tooltip'
,grid: {containLabel: true}
,xAxis: xAxis'
,yAxis: yData1
,series: [seriesWave]
,dataZoom: []
}
title :: Title
title =
{
id: ""
,show: true
,text: "Awesome Title"
,link: ""
,target: "blank"
,textStyle: textStyle
,subtext: "Awesome Subtitle"
,sublink: ""
,subtarget: "blank"
,subtextStyle: textStyle2
,padding: 10.0
,itemGap: 0.0
,zlevel: 2.0
,z: 2.0
,left: relativePosition (Relative LeftPos)
,top: relativePosition (Relative Top)
,right: numberPosition 60.0
,bottom: percentPosition 40.0
,backgroundColor: chartColor white
,borderColor: chartColor black
,borderWidth: 0.0
,borderRadius: 20.0
,shadowBlur: 0.0
,shadowColor: chartColor black
,shadowOffsetX: 0.0
,shadowOffsetY: 0.0
}
textStyle2 :: TextStyle textStyle2 :: TextStyle
textStyle2 = textStyle2 =
...@@ -284,14 +238,14 @@ textStyle2 = ...@@ -284,14 +238,14 @@ textStyle2 =
,fontStyle: chartFontStyle italic ,fontStyle: chartFontStyle italic
,fontWeight: chartFontWeight normal ,fontWeight: chartFontWeight normal
,fontFamily: "sans-serif" ,fontFamily: "sans-serif"
,fontSize: 15 ,fontSize: 12
,align: relativePosition $ Relative RightPos ,align: relativePosition $ Relative RightPos
,verticalAlign: relativePosition $ Relative Bottom ,verticalAlign: relativePosition $ Relative Bottom
,lineHeight: percentPosition 0.0 ,lineHeight: percentPosition 0.0
,width: percentPosition 100.0 ,width: percentPosition 100.0
,height: percentPosition 100.0 ,height: percentPosition 100.0
,textBorderColor: chartColor black ,textBorderColor: chartColor black
,textBorderWidth: 1.0 ,textBorderWidth: 0.0
,textShadowColor: chartColor black ,textShadowColor: chartColor black
,textShadowBlur: chartColor black ,textShadowBlur: chartColor black
,textShadowOffsetX: 0.0 ,textShadowOffsetX: 0.0
...@@ -305,7 +259,7 @@ textStyle' = ...@@ -305,7 +259,7 @@ textStyle' =
,fontStyle: chartFontStyle normal ,fontStyle: chartFontStyle normal
,fontWeight: chartFontWeight normal ,fontWeight: chartFontWeight normal
,fontFamily: "sans-serif" ,fontFamily: "sans-serif"
,fontSize: 12 ,fontSize: 15
,align: relativePosition $ Relative LeftPos ,align: relativePosition $ Relative LeftPos
,verticalAlign: relativePosition $ Relative Top ,verticalAlign: relativePosition $ Relative Top
,lineHeight: percentPosition 0.0 ,lineHeight: percentPosition 0.0
...@@ -326,7 +280,7 @@ textStyle = ...@@ -326,7 +280,7 @@ textStyle =
,fontStyle: chartFontStyle normal ,fontStyle: chartFontStyle normal
,fontWeight: chartFontWeight normal ,fontWeight: chartFontWeight normal
,fontFamily: "sans-serif" ,fontFamily: "sans-serif"
,fontSize: 12 ,fontSize: 20
,align: relativePosition $ Relative LeftPos ,align: relativePosition $ Relative LeftPos
,verticalAlign: relativePosition $ Relative Top ,verticalAlign: relativePosition $ Relative Top
,lineHeight: percentPosition 0.0 ,lineHeight: percentPosition 0.0
...@@ -340,138 +294,4 @@ textStyle = ...@@ -340,138 +294,4 @@ textStyle =
,textShadowOffsetY: 0.0 ,textShadowOffsetY: 0.0
} }
charts1 :: Echarts
charts1 =
{
className: Nothing
,style: Nothing
,theme: Nothing
,group: Nothing
,option: optLineBar
,initOpts: Nothing
,notMerge: Nothing
,lazyUpdate: Nothing
,loading: Nothing
,optsLoading: Nothing
,onReady: Nothing
,resizable: Nothing
,onEvents: Nothing
}
charts2 :: Echarts
charts2 =
{
className: Nothing
,style: Nothing
,theme: Nothing
,group: Nothing
,option: optHBar
,initOpts: Nothing
,notMerge: Nothing
,lazyUpdate: Nothing
,loading: Nothing
,optsLoading: Nothing
,onReady: Nothing
,resizable: Nothing
,onEvents: Nothing
}
charts3 :: Echarts
charts3 =
{
className: Nothing
,style: Nothing
,theme: Nothing
,group: Nothing
,option: optWave
,initOpts: Nothing
,notMerge: Nothing
,lazyUpdate: Nothing
,loading: Nothing
,optsLoading: Nothing
,onReady: Nothing
,resizable: Nothing
,onEvents: Nothing
}
charts4 :: Echarts
charts4 =
{
className: Nothing
,style: Nothing
,theme: Nothing
,group: Nothing
,option: optSunburst
,initOpts: Nothing
,notMerge: Nothing
,lazyUpdate: Nothing
,loading: Nothing
,optsLoading: Nothing
,onReady: Nothing
,resizable: Nothing
,onEvents: Nothing
}
histogram1 :: R.ReactElement
histogram1 = echarts charts1
histogram2 :: R.ReactElement
histogram2 = echarts charts2
histogram3 :: R.ReactElement
histogram3 = echarts charts3
histogram4 :: R.ReactElement
histogram4 = echarts charts4
{-
histogram :: R.ReactElement
histogram = echarts
[ option
[ tooltip [trigger "axis"]
, grid [containLabel true]
, legend [data' ["TEST MUDADA", "Favorites", "All"]]
-- , legend [data' ["Map Terms coverage", "Favorites", "All"]]
, xAxis
[ type' "category"
, axisTick [alignWithLabel true]
, data' ["Jan" , "Feb", "Mar" , "Apr"
, "May", "Jun", "July", "Aug"
, "Sep", "Oct", "Nov" , "Dec"
]
]
, dataZoom' [dz1', dz1', dz2', dz2']
, yAxis [ya1, ya2]
, series [sd1, sd2, sd3]
]
j ]
type DataZoom =
{"type" :: String
, xAxisIndex :: Int
, filterMode :: String
, start :: Int
, end :: Int
}
-}
dz1' :: DataZoom
dz1' = {
"type": "slider"
,xAxisIndex: 0
,filterMode: "empty"
,start: 0
,end: 100
}
dz2' :: DataZoom
dz2' = {
"type": "inside"
,xAxisIndex: 0
,filterMode: "empty"
,start: 0
,end: 100
}
p'' :: R.ReactElement
p'' = p [] []
src/Charts/Font.purs → src/Gargantext/Charts/Font.purs
View file @ 9dd3448b
module Charts.Font module Gargantext.Charts.Font
( (
TextStyle, TextStyle,
ChartFontStyle(), ChartFontStyle(),
...@@ -13,8 +13,8 @@ module Charts.Font ...@@ -13,8 +13,8 @@ module Charts.Font
) where ) where
import CSS (FontStyle(..), FontWeight(..), Prefixed(..), Value(..)) import CSS (FontStyle(..), FontWeight(..), Prefixed(..), Value(..))
import Charts.Color (ChartColor) import Gargantext.Charts.Color (ChartColor)
import Charts.Position (LeftRelativePosition, Position, TopRelativePosition) import Gargantext.Charts.Position (LeftRelativePosition, Position, TopRelativePosition)
import Data.Generic (class Generic, gShow) import Data.Generic (class Generic, gShow)
import Data.String (toLower) import Data.String (toLower)
import Prelude (Unit, ($), (<<<), (<>)) import Prelude (Unit, ($), (<<<), (<>))
......
src/Charts/Legend.purs → src/Gargantext/Charts/Legend.purs
View file @ 9dd3448b
module Charts.Legend module Gargantext.Charts.Legend
( (
LegendType(..), LegendType(..),
PlainOrScroll(..), PlainOrScroll(..),
......
src/Charts/Position.purs → src/Gargantext/Charts/Position.purs
View file @ 9dd3448b
module Charts.Position module Gargantext.Charts.Position
( (
Position(), Position(),
numberPosition, numberPosition,
......
src/Charts/Series.purs → src/Gargantext/Charts/Series.purs
View file @ 9dd3448b
module Charts.Series where module Gargantext.Charts.Series where
import Charts.Data (DataS) import Gargantext.Charts.Data (DataS)
import Prelude (class Show, show, (<<<)) import Prelude (class Show, show, (<<<))
newtype SeriesType = SeriesType String newtype SeriesType = SeriesType String
type SeriesName = String
data SeriesShape = Line data SeriesShape = Line
| Bar | PictorialBar | Bar | PictorialBar
| Pie | Pie
...@@ -26,13 +28,13 @@ data SeriesShape = Line ...@@ -26,13 +28,13 @@ data SeriesShape = Line
| ThemeRiver | ThemeRiver
instance showSeriesShape :: Show SeriesShape where instance showSeriesShape :: Show SeriesShape where
show Line = "line" show Line = "line"
show Bar = "bar" show Bar = "bar"
show Pie = "pie" show Pie = "pie"
show Sunburst = "sunburst" show Sunburst = "sunburst"
show Funnel = "funnel" show Funnel = "funnel"
show Heatmap = "heatmap" show Heatmap = "heatmap"
show _ = "" show _ = ""
seriesType :: SeriesShape -> SeriesType seriesType :: SeriesShape -> SeriesType
seriesType = SeriesType <<< show seriesType = SeriesType <<< show
......
src/Charts/Type.purs → src/Gargantext/Charts/Type.purs
View file @ 9dd3448b
module Charts.Type where module Gargantext.Charts.Type where
import Charts.Font import Gargantext.Charts.Font
import CSS (Color) import CSS (Color)
import Charts.Series import Gargantext.Charts.Series
import Charts.Data import Gargantext.Charts.Data
import Charts.Color (ChartColor(..)) import Gargantext.Charts.Color (ChartColor(..))
import Charts.Font (Icon, icon, TextStyle) import Gargantext.Charts.Font (Icon, icon, TextStyle)
import Charts.Legend (LegendType, SelectedMode, selectedMode, Orient) import Gargantext.Charts.Legend (LegendType, SelectedMode, selectedMode, Orient)
import Charts.Position (LeftRelativePosition, Position, TopRelativePosition) import Gargantext.Charts.Position (LeftRelativePosition, Position, TopRelativePosition)
import Data.Either (Either) import Data.Either (Either)
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
import Prelude (Unit, (<<<)) import Prelude (Unit, (<<<))
......
src/Gargantext/Dashboard.purs 0 → 100644
View file @ 9dd3448b
module Gargantext.Dashboard where
import Prelude (($), (<>), show, pure, unit, map)
import Gargantext.Charts.ECharts
import Gargantext.Charts.Series
import DOM (DOM)
import Data.Unit (Unit)
import React.DOM (div, h1, text, title)
import React.DOM.Props (className)
import Thermite (PerformAction, Render, Spec, simpleSpec)
type State = Unit
data Action = None
initialState :: State
initialState = unit
performAction :: forall eff props. PerformAction (dom :: DOM | eff) State props Action
performAction _ _ _ = pure unit
render :: forall props. Render State props Action
render dispatch _ state _ = [
h1 [] [text "IMT DashBoard"]
, div [className "row"] [ div [className "col-md-9 content"] [chart globalPublis]
, div [className "col-md-3 content"] [chart naturePublis]
]
, chart distriBySchool
, div [className "row"] (map (\school -> div [className "col-md-4 content"] [chart $ focus school])
[ "Telecom Paris Sud", "Telecom Bretagne", "Telecom ParisTech"]
)
]
where
globalPublis :: Options
globalPublis = (Options { mainTitle : "Global Scientific Publications"
, subTitle : "Distribution of scientific publications by IMT's Schools over time"
, xAxis : xAxis ["Jan", "Feb", "Mar", "Apr", "May"]
, yAxis : [series Bar "Number of publication of IMT / year" [ {name: "Test1", value: 12.0}
, {name: "Test2", value: 20.0}
, {name: "Test4", value: 35.0}
, {name: "Test5", value: 2.0}
, {name: "Test3", value: 32.0}
]
]
, yAxisFormat : (YAxisFormat { position : "left"
, visible : true
})
, addZoom : true
})
distriBySchool :: Options
distriBySchool = Options { mainTitle : "School production in 2018"
, subTitle : "Distribution by school"
, xAxis : xAxis []
, yAxis : [ series Pie "Pie data" [{name: "Sud Paris", value: 50.0},
{name: "Eurecom", value: 45.0},
{name: "Telecom ParisTech", value: 65.0},
{name: "Telecom Bretagne", value: 15.0},
{name: "Telecom Saint-Etienne", value: 23.0}
]
]
, yAxisFormat : (YAxisFormat { position : ""
, visible : false
})
, addZoom : false
}
focus :: String -> Options
focus school = Options { mainTitle : ("Focus " <> school)
, subTitle : "Total scientific publications"
, xAxis : xAxis ["Jan", "Feb", "Mar"]
, yAxis : [series Bar "Bar Data" [ {name: "val1", value: 50.0}
, {name: "val2", value: 20.0}
, {name: "val5", value: 100.0}
]
]
, yAxisFormat : (YAxisFormat { position : "left"
, visible : true
})
, addZoom : false
}
naturePublis :: Options
naturePublis = Options { mainTitle : "Nature of publications"
, subTitle : "Distribution by type"
, xAxis : xAxis []
, yAxis : [series Funnel "Funnel Data" [ {name: "Articles", value: 60.0}
, {name: "Reports", value: 100.0}
, {name: "Patents", value: 40.0}
, {name: "Books", value: 65.0}
]
]
, yAxisFormat : (YAxisFormat { position : "left"
, visible : false
})
, addZoom : false
}
layoutDashboard :: forall props eff. Spec (dom :: DOM | eff) State props Action
layoutDashboard = simpleSpec performAction render
src/Navigation.purs
View file @ 9dd3448b
...@@ -38,7 +38,7 @@ import Thermite (PerformAction, Render, Spec, _render, cotransform, defaultPerfo ...@@ -38,7 +38,7 @@ import Thermite (PerformAction, Render, Spec, _render, cotransform, defaultPerfo
import Unsafe.Coerce (unsafeCoerce) import Unsafe.Coerce (unsafeCoerce)
import UserPage as UP import UserPage as UP
import NgramsTable as NG import NgramsTable as NG
import Dashboard as Dsh import Gargantext.Dashboard as Dsh
import Graph as GE import Graph as GE
...@@ -109,7 +109,6 @@ data Action ...@@ -109,7 +109,6 @@ data Action
| NgramsA NG.Action | NgramsA NG.Action
performAction :: forall eff props. PerformAction ( dom :: DOM performAction :: forall eff props. PerformAction ( dom :: DOM
, ajax :: AJAX , ajax :: AJAX
, console :: CONSOLE , console :: CONSOLE
......
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