plotlyjs v2.14: Add support for sankey links with arrows (plotly/plotly.js#6276)

kMutagene · kMutagene · commit 99d635a06e2e · 2023-02-08T10:04:47.000+01:00
diff --git a/src/Plotly.NET/ChartAPI/GenericChart.fs b/src/Plotly.NET/ChartAPI/GenericChart.fs
@@ -15,7 +15,7 @@ module HTML =
     <head>
         <!-- Plotly.js -->
         <meta http-equiv="X-UA-Compatible" content="IE=11" >
-        <script src="https://cdn.plot.ly/plotly-2.13.3.min.js"></script>
+        <script src="https://cdn.plot.ly/plotly-2.14.0.min.js"></script>
         [ADDITIONAL_HEAD_TAGS]
         <style>
         .container {
@@ -58,7 +58,7 @@ module HTML =
         newScript.AppendLine(
             @"
             var renderPlotly_[SCRIPTID] = function() {
-            var fsharpPlotlyRequire = requirejs.config({context:'fsharp-plotly',paths:{plotly:'https://cdn.plot.ly/plotly-2.13.3.min'}}) || require;
+            var fsharpPlotlyRequire = requirejs.config({context:'fsharp-plotly',paths:{plotly:'https://cdn.plot.ly/plotly-2.14.0.min'}}) || require;
             fsharpPlotlyRequire(['plotly'], function(Plotly) {"
         )
         |> ignore
diff --git a/src/Plotly.NET/Traces/ObjectAbstractions/Sankey.fs b/src/Plotly.NET/Traces/ObjectAbstractions/Sankey.fs
@@ -127,6 +127,7 @@ type SankeyLinks() =
 
     static member init
         (
+            [<Optional; DefaultParameterValue(null)>] ?ArrowLen: int,
             [<Optional; DefaultParameterValue(null)>] ?Color: Color,
             [<Optional; DefaultParameterValue(null)>] ?ColorScales: seq<SankeyLinkColorscale>,
             [<Optional; DefaultParameterValue(null)>] ?CustomData: seq<#IConvertible>,
@@ -143,6 +144,7 @@ type SankeyLinks() =
 
         SankeyLinks()
         |> SankeyLinks.style (
+            ?ArrowLen = ArrowLen,
             ?Color = Color,
             ?ColorScales = ColorScales,
             ?CustomData = CustomData,
@@ -160,6 +162,7 @@ type SankeyLinks() =
 
     static member style
         (
+            [<Optional; DefaultParameterValue(null)>] ?ArrowLen: int,
             [<Optional; DefaultParameterValue(null)>] ?Color: Color,
             [<Optional; DefaultParameterValue(null)>] ?ColorScales: seq<SankeyLinkColorscale>,
             [<Optional; DefaultParameterValue(null)>] ?CustomData: seq<#IConvertible>,
@@ -175,6 +178,7 @@ type SankeyLinks() =
         ) =
         (fun (sankeyLinks: SankeyLinks) ->
 
+            ArrowLen |> DynObj.setValueOpt sankeyLinks "arrowlen"
             Color |> DynObj.setValueOpt sankeyLinks "color"
             ColorScales |> DynObj.setValueOpt sankeyLinks "colorscales"
             CustomData |> DynObj.setValueOpt sankeyLinks "customdata"
diff --git a/tests/Plotly.NET.Tests/HtmlCodegen/SimpleTests.fs b/tests/Plotly.NET.Tests/HtmlCodegen/SimpleTests.fs
@@ -20,7 +20,7 @@ let simpleChart =
 let ``Html layout tests`` =
     testList "SimpleTests.Simple tests" [
         testCase "Expecting plotly js" ( fun () ->
-            "https://cdn.plot.ly/plotly-2.13.3.min"
+            "https://cdn.plot.ly/plotly-2.14.0.min"
             |> chartGeneratedContains simpleChart
         );
         testCase "Expecting data" ( fun () ->
@@ -36,7 +36,7 @@ let ``Html layout tests`` =
             |> chartGeneratedContains simpleChart
         );
         testCase "Expecting require config" (fun () ->
-            "var fsharpPlotlyRequire = requirejs.config({context:'fsharp-plotly',paths:{plotly:'https://cdn.plot.ly/plotly-2.13.3.min'}}) || require;"
+            "var fsharpPlotlyRequire = requirejs.config({context:'fsharp-plotly',paths:{plotly:'https://cdn.plot.ly/plotly-2.14.0.min'}}) || require;"
             |> chartGeneratedContains simpleChart
         );
         testCase "Expecting html tags in embedded page only" (fun () ->
