GenericChart

Author: muehlhaus

src/FSharp.Plotly/ChartExtensions.fs

@@ -1,52 +1,72 @@
 namespace FSharp.Plotly
 
+open System
+open System.IO
+open StyleGramar
+open ChartArea
+open GenericChart
+
+/// Extensions methods for Charts supporting the fluent pipeline style 'Chart.WithXYZ(...)'.
 [<AutoOpen>]
 module ChartExtensions =
-
-
-    open System
-    open System.IO
-
-    open StyleGramar
-    open ChartArea
-
-    open GenericChart
-
-
-
+    
+    /// Provides a set of static methods for creating charts.
     type Chart with   
 
-        static member withMarker(marker:Marker) =
-            (fun (ch:GenericChart) ->  
-                ch 
-                |> GenericChart.mapTrace (fun gc -> 
-                                            gc.set_marker marker
-                                            gc)
+        // ####################### Apply to trace
+
+        /// Set the name related properties of a trace
+        static member withTraceName(?Name,?Showlegend,?Legendgroup,?Visible) =
+            (fun (ch:GenericChart) ->                   
+                ch |> mapiTrace (fun i trace -> 
+                                   let naming i name = name |> Option.map (fun v -> if i = 0 then v else sprintf "%s_%i" v i)                                   
+                                   trace |> Helpers.ApplyTraceStyles(trace.``type``,?name=(naming i Name),?showlegend=Showlegend,?legendgroup=Legendgroup,?visible=Visible))          
+            )
+
+        /// Set the name related properties of a trace
+        // TODO
+        static member withTraceInfo(?textinfo,?textinfoposition,?hoverinfo) =
+            (fun (ch:GenericChart) ->                   
+                ch |> mapiTrace (fun i trace -> 
+                                   trace) // |> Helpers.ApplyTraceStyles())          
+            )
+        
+        /// Apply styling to the Marker(s) of the chart as Object.
+        static member withMarkerOption(marker:Marker) =
+            (fun (ch:GenericChart) ->                                    
+                ch |> mapTrace (fun gc -> 
+                                    gc.set_marker marker
+                                    gc)
             )
 
+        /// Apply styling to the Marker(s) of the chart.
         static member withMarkerStyle(?Size,?Color,?Symbol,?Opacity) = 
             let marker = 
                 Marker()                
                 |> Helpers.ApplyMarkerStyles(?size=Size,?color=Color,?symbol=Symbol,?opacity=Opacity)
 
-            Chart.withMarker(marker)         
+            Chart.withMarkerOption(marker)         
 
-               
-        static member withLine(line:Line) =
-            (fun (ch:GenericChart) ->  
-                ch 
-                |> GenericChart.mapTrace (fun gc -> 
-                                            gc.set_line line
-                                            gc)
+        /// Apply styling to the Line(s) of the chart as Object.
+        static member withLineOption(line:Line) =
+            (fun (ch:GenericChart) ->                   
+                ch |> mapTrace (fun gc -> 
+                                    gc.set_line line
+                                    gc)
             )
 
+        /// Apply styling to the Line(s) of the chart.
         static member withLineStyle(?Width,?Color,?Shape,?Dash,?Smoothing,?ColorScale) =
             let line = 
                 Line()                
                 |> Helpers.ApplyLineStyles(?width=Width,?color=Color,?shape=Shape,?dash=Dash,?smoothing=Smoothing,?colorScale=ColorScale)
 
-            Chart.withLine(line)  
+            Chart.withLineOption(line)  
+
+
 
+        // ####################### Apply to layout
+        
 
         static member withX_AxisStyle(title) =
             (fun (ch:GenericChart) ->             
@@ -71,8 +91,6 @@ module ChartExtensions =
                 GenericChart.setLayout layout ch)               
 
 
-        // -------------
-        // with Layout
         static member withLayout(layout:Layout) =
             (fun (ch:GenericChart) -> 
                 GenericChart.setLayout layout ch)         
@@ -107,6 +125,10 @@ module ChartExtensions =
         static member withError(layout:Layout) =
             (fun (ch:GenericChart) -> 
                 GenericChart.setLayout layout ch)   
+
+
+
+        // ####################### 
 
         static member Show (ch:GenericChart) = 
             let guid = Guid.NewGuid().ToString()

src/FSharp.Plotly/ChartHelpers.fs

@@ -10,7 +10,7 @@ open ChartArea
 open GenericChart
 
 
-
+// internal
 type private Helpers() = 
 
     // Applies the styles to GenericTrace()
@@ -482,6 +482,7 @@ type private Helpers() =
     static member ApplyBinsStyles
         (?startBins:float,?endBins:float,?size
         ) =
+            
             (fun (bins:('T :> Bins)) -> 
             startBins |> Option.iter bins.set_start
             endBins   |> Option.iter bins.set_end

src/FSharp.Plotly/GenericChart.fs

@@ -3,7 +3,7 @@
 open System
 open Newtonsoft.Json
 
-
+/// HTML template for Plotly.js 
 module HTML =
 
     let doc =
@@ -28,6 +28,8 @@ module HTML =
     Plotly.newPlot('[ID]', data, layout);
   </script>"""
 
+
+/// Module 
 module GenericChart =
 
     type GenericChart =
@@ -97,12 +99,26 @@ module GenericChart =
 
 
 
-                
+    /// Creates a new GenericChart whose traces are the results of applying the given function to each of the trace of the GenericChart.           
     let mapTrace f gChart =
         match gChart with
         | Chart (trace,layout)       -> Chart (f trace,layout)
         | MultiChart (traces,layout) -> MultiChart (traces |> Seq.map f,layout) 
 
+    /// Creates a new GenericChart whose traces are the results of applying the given function to each of the trace of the GenericChart.
+    /// The integer index passed to the function indicates the index (from 0) of element being transformed.           
+    let mapiTrace f gChart =
+        match gChart with
+        | Chart (trace,layout)       -> Chart (f 0 trace,layout)
+        | MultiChart (traces,layout) -> MultiChart (traces |> Seq.mapi f,layout) 
+
+    /// Returns the number of traces within the GenericChart
+    let countTrace gChart =
+        match gChart with
+        | Chart (_)             -> 1
+        | MultiChart (traces,_) -> traces |> Seq.length
+
+
     let setLayout layout gChart =
         match gChart with
         | Chart (trace,_)       -> Chart (trace,Some layout)

src/FSharp.Plotly/Script.fsx

@@ -52,8 +52,16 @@ Chart.BoxPlot(["bin1";"bin2";"bin1";"bin2";"bin1";"bin2";"bin1";"bin1";"bin2";"b
 Chart.BoxPlot(x=yValues,Jitter=0.3,Boxpoints= StyleOption.Boxpoints.Outliers)
 |> Chart.Show
 
+
+open Newtonsoft.Json
+
 Chart.BoxPlot(y=yValues,Jitter=0.3,Boxpoints=StyleOption.Boxpoints.Suspectedoutliers)
-|> Chart.Show
+
+Chart.Line(xValues,yValues',Name="line")
+|> Chart.withMarker(StyleGramar.Marker())
+|> GenericChart.getTraces
+|> JsonConvert.SerializeObject 
+//|> Chart.Show
 
 
 
@@ -133,3 +141,94 @@ Chart.BoxPlot(y=c,Jitter=0.3,Boxpoints= StyleOption.Boxpoints.Outliers);
 |> Chart.Combine
 |> Chart.Show
 
+
+
+
+
+let buildApply (applyStyle:'a -> 'a) =
+    let instance =
+        System.Activator.CreateInstance<'a>()
+    applyStyle instance
+
+
+let optBuildApply (applyStyle:'a -> 'a) (item:'a option) =
+    match item with
+    | Some item' -> applyStyle item'
+    | None       -> buildApply applyStyle
+
+
+
+
+
+
+open System.Reflection
+
+let tryGetPropertyName (expr : Microsoft.FSharp.Quotations.Expr) =
+    match expr with
+    | Microsoft.FSharp.Quotations.Patterns.PropertyGet (_,pInfo,_) -> Some pInfo.Name
+    | _ -> None
+
+let trySetPropertyValue (o:obj) (propName:string) (value:obj) =
+    let property = o.GetType().GetProperty(propName)
+    try 
+        //property.SetValue(o, System.Convert.ChangeType(value, property.PropertyType), null)
+        property.SetValue(o, value, null)
+        Some o
+    with
+    | :? System.ArgumentException -> None
+    
+
+let tryGetPropertyValue (o:obj) (propName:string) =
+    try 
+        Some (o.GetType().GetProperty(propName).GetValue(o, null))
+    with 
+    | :? System.Reflection.TargetInvocationException -> None
+
+let tryGetPropertyValueAs<'a> (o:obj) (propName:string) =
+    try 
+        let v = (o.GetType().GetProperty(propName).GetValue(o, null))
+        Some (v :?> 'a)
+    with 
+    | :? System.Reflection.TargetInvocationException -> None
+
+
+let updatePropertyValue (o:obj) (expr : Microsoft.FSharp.Quotations.Expr) (f: 'a option -> 'a) =
+    let propName = tryGetPropertyName expr
+    let v = f (tryGetPropertyValueAs<'a> o propName.Value)
+    trySetPropertyValue o propName.Value v |> ignore
+    o
+
+
+let t = Trace()
+
+
+type H =
+    static member applyMarkerStyle(?Size,?SizeMin) =
+        (fun (m:StyleGramar.Marker) -> 
+                Size    |> Option.iter m.set_size
+                SizeMin |> Option.iter m.set_sizemin
+                m
+                )
+
+
+let markerOptionBuild = optBuildApply (H.applyMarkerStyle(Size=10))
+
+
+
+updatePropertyValue t <@ t.marker @> markerOptionBuild
+
+
+t.marker
+
+let m = StyleGramar.Marker(size=1)
+
+trySetPropertyValue m "size" 2
+
+m.sizemin
+
+tryGetPropertyValue m "cmax"
+
+
+
+tryGetPropertyValue m (tryGetPropertyName <@ m.size @>) .Value
+