plotlyjs v2.14: Add support for sankey links with arrows (plotly/plot…

…ly.js#6276)
plotly · Feb 8, 2023 · 99d635a · 99d635a
1 parent 28de52f
commit 99d635a
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
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 () ->