add table chart

Author: bvenn

FSharp.Plotly.sln

@@ -1,6 +1,6 @@
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio Version 16
-VisualStudioVersion = 16.0.29613.14
+# Visual Studio 15
+VisualStudioVersion = 15.0.28307.960
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = ".paket", ".paket", "{63297B98-5CED-492C-A5B7-A5B4F73CF142}"
 	ProjectSection(SolutionItems) = preProject
@@ -55,6 +55,7 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "content", "content", "{8E6D
 		docsrc\content\sankey.fsx = docsrc\content\sankey.fsx
 		docsrc\content\shapes.fsx = docsrc\content\shapes.fsx
 		docsrc\content\splom.fsx = docsrc\content\splom.fsx
+		docsrc\content\table.fsx = docsrc\content\table.fsx
 		docsrc\content\violin-plots.fsx = docsrc\content\violin-plots.fsx
 		docsrc\content\windrose-charts.fsx = docsrc\content\windrose-charts.fsx
 	EndProjectSection

src/FSharp.Plotly/Cellcolor.fs

@@ -0,0 +1,30 @@
+namespace FSharp.Plotly
+
+open System
+
+/// CellColor type inherits from dynamic object
+type CellColour () =
+    inherit DynamicObj ()
+
+    /// Initialized Line object
+    static member init
+        (
+            ?Color
+        ) =
+            CellColour () 
+            |> CellColour.style
+                (
+                    ?Color      = Color  
+                )
+    // Applies the styles to CellColour()
+    static member style
+        (
+            ?Color
+        ) =
+            (fun (cell:CellColour) -> 
+                Color      |> DynObj.setValueOpt cell "color" 
+                // out -> 
+                cell
+            )
+
+               

src/FSharp.Plotly/Cells.fs

@@ -0,0 +1,53 @@
+namespace FSharp.Plotly
+
+open System
+
+
+/// Cells type inherits from dynamic object
+type Cells () =
+    inherit DynamicObj ()
+
+    /// Initialized Cells object
+    static member init
+        (   
+            Values , 
+            ?Align ,
+            ?Height,
+            ?Fill  ,
+            ?Font  ,
+            ?Line   
+
+        ) =
+        Cells() 
+        |> Cells.style
+            (
+                Values  = Values,
+                ?Align  = Align ,
+                ?Height = Height,
+                ?Fill   = Fill  ,
+                ?Font   = Font  ,
+                ?Line   = Line
+
+            )
+
+    //Applies the styles to Cells()
+    static member style
+        (   
+            Values : seq<#seq<#IConvertible>>       , 
+            ?Align : seq<StyleParam.HorizontalAlign>,
+            ?Height                                 ,
+            ?Fill                                   , 
+            ?Font  : Font                           ,
+            ?Line  : Line 
+
+        ) =
+           (fun (cells: Cells) -> 
+
+                Values |> DynObj.setValue      cells "values" 
+                Align  |> DynObj.setValueOptBy cells "align" (Seq.map StyleParam.HorizontalAlign.convert)
+                Height |> DynObj.setValueOpt   cells "height"
+                Fill   |> DynObj.setValueOpt   cells "fill"
+                Line   |> DynObj.setValueOpt   cells "line"     
+                Font   |> DynObj.setValueOpt   cells "font"  
+                cells
+            )

src/FSharp.Plotly/Chart.fs

@@ -573,4 +573,27 @@ type Chart =
         |> TraceStyle.TextLabel(?Text=Labels,?Textposition=TextPosition,?Textfont=TextFont)
         |> GenericChart.ofTraceObject 
 
-
+    /// cretes table out of header sequence and row sequences
+    static member Table(headerValues, cellValues, ?AlignHeader, ?AlignCells, ?ColumnWidth, ?ColumnOrder, ?ColorHeader, ?ColorCells, ?FontHeader, ?FontCells, ?HeightHeader, ?HeightCells, ?LineHeader, ?LineCells) = //header, cells ) = //,?Name,?Showlegend,?MarkerSymbol,?Color,?Opacity,?Labels,?TextPosition,?TextFont,?Dash,?Width) = 
+        Trace.initTable (
+
+                let CellFilling =
+                    match ColorCells with 
+                    | Some color  -> Some (CellColour.init (?Color=ColorCells))
+                    | Option.None -> Option.None
+
+                let HeaderFilling =
+                    match ColorHeader with 
+                    | Some color   -> Some (CellColour.init (?Color=ColorHeader))
+                    | Option.None  -> Option.None
+                              
+
+                TraceStyle.Table (
+                    Header = Header.init (headerValues|> Seq.map seq, ?Align=AlignHeader, ?Fill=HeaderFilling, ?Font=FontHeader, ?Height=HeightHeader, ?Line=LineHeader),
+                    Cells  = 
+                        Cells.init(cellValues |> Seq.transpose, ?Align=AlignCells, ?Fill=CellFilling, ?Font=FontCells, ?Height=HeightCells, ?Line=LineCells),  
+                    ?ColumnWidth = ColumnWidth,
+                    ?ColumnOrder = ColumnOrder
+                    )
+                )
+        |> GenericChart.ofTraceObject 

src/FSharp.Plotly/FSharp.Plotly.fsproj

@@ -25,6 +25,9 @@
     <Compile Include="Line.fs" />
     <Compile Include="Marker.fs" />
     <Compile Include="Font.fs" />
+    <Compile Include="Cellcolor.fs" />
+    <Compile Include="Header.fs" />
+    <Compile Include="Cells.fs" />
     <Compile Include="Axis.fs" />
     <Compile Include="Bins.fs" />
     <Compile Include="Cumulative.fs" />

src/FSharp.Plotly/Header.fs

@@ -0,0 +1,52 @@
+namespace FSharp.Plotly
+
+open System
+
+/// Header type inherits from dynamic object
+type Header () =
+    inherit DynamicObj ()
+
+    /// Initialized Header object
+    static member init
+        (   
+            Values , 
+            ?Align ,
+            ?Height,
+            ?Fill  ,
+            ?Font  ,
+            ?Line
+
+        ) =
+        Header() 
+        |> Header.style
+            (
+                Values  = Values,
+                ?Align  = Align ,
+                ?Height = Height,
+                ?Fill   = Fill  ,
+                ?Font   = Font  ,
+                ?Line   = Line
+
+            )
+
+    /// Applies the styles to Header()
+    static member style
+        (   
+            Values : seq<#seq<#IConvertible>>       , 
+            ?Align : seq<StyleParam.HorizontalAlign>,
+            ?Height                                 ,
+            ?Fill                                   ,
+            ?Font  : Font                           ,
+            ?Line  : Line 
+
+        ) =
+            (fun (header: Header) -> 
+
+                Values |> DynObj.setValue      header "values" 
+                Align  |> DynObj.setValueOptBy header "align" (Seq.map StyleParam.HorizontalAlign.convert)
+                Height |> DynObj.setValueOpt   header "height"
+                Fill   |> DynObj.setValueOpt   header "fill" 
+                Line   |> DynObj.setValueOpt   header "line"    
+                Font   |> DynObj.setValueOpt   header "font"
+                header
+            )

src/FSharp.Plotly/Trace.fs

@@ -74,6 +74,9 @@ module Trace =
     let initSplom (applyStyle:Trace->Trace) = 
         Trace("splom") |> applyStyle
 
+    /// Init trace for table
+    let initTable (applyStyle:Trace->Trace) = 
+        Trace("table") |> applyStyle
 
     /// Functions provide the styling of the Chart objects
     type TraceStyle() =
@@ -966,3 +969,20 @@ module Trace =
                     // out ->
                     trace
                 ) 
+
+        // Applies the styles of table plot to TraceObjects 
+        static member Table
+            (   
+                Header       : Header  ,
+                Cells        : Cells   ,
+                ?ColumnWidth : seq<int>,
+                ?ColumnOrder : seq<int>         
+            ) =
+                (fun (trace:('T :> Trace)) ->                  
+                    Header      |> DynObj.setValue    trace "header"
+                    Cells       |> DynObj.setValue    trace "cells"
+                    ColumnWidth |> DynObj.setValueOpt trace "columnwidth"
+                    ColumnOrder |> DynObj.setValueOpt trace "columnorder"
+                    // out ->
+                    trace
+                )