Fixed bug that would not truncate correctly
This commit is contained in:
parent
b14f1244c2
commit
747e3a6706
|
@ -146,6 +146,7 @@ module DemoDist = {
|
||||||
(),
|
(),
|
||||||
);
|
);
|
||||||
let response = DistPlusRenderer.run(inputs);
|
let response = DistPlusRenderer.run(inputs);
|
||||||
|
Js.log(response);
|
||||||
switch (RenderTypes.DistPlusRenderer.Outputs.distplus(response)) {
|
switch (RenderTypes.DistPlusRenderer.Outputs.distplus(response)) {
|
||||||
| Some(distPlus) => <DistPlusPlot distPlus />
|
| Some(distPlus) => <DistPlusPlot distPlus />
|
||||||
| _ =>
|
| _ =>
|
||||||
|
|
|
@ -4,9 +4,10 @@ let truncateIfShould =
|
||||||
outputs: RenderTypes.ShapeRenderer.Combined.outputs,
|
outputs: RenderTypes.ShapeRenderer.Combined.outputs,
|
||||||
dist,
|
dist,
|
||||||
) => {
|
) => {
|
||||||
|
let willTruncate =
|
||||||
shouldTruncate
|
shouldTruncate
|
||||||
&& RenderTypes.ShapeRenderer.Combined.methodUsed(outputs) == `Sampling
|
&& RenderTypes.ShapeRenderer.Combined.methodUsed(outputs) == `Sampling;
|
||||||
? dist |> Distributions.DistPlus.T.truncate(recommendedLength) : dist;
|
willTruncate ? dist |> Distributions.DistPlus.T.truncate(recommendedLength) : dist;
|
||||||
};
|
};
|
||||||
|
|
||||||
let run =
|
let run =
|
||||||
|
|
|
@ -61,7 +61,7 @@ module ShapeRenderer = {
|
||||||
};
|
};
|
||||||
let methodUsed = ({symbolic, sampling}:outputs) => switch(symbolic, sampling){
|
let methodUsed = ({symbolic, sampling}:outputs) => switch(symbolic, sampling){
|
||||||
| (Some(Ok(_)), _) => `Symbolic
|
| (Some(Ok(_)), _) => `Symbolic
|
||||||
| (None, Some({shape: Some(_)})) => `Sampling
|
| (_, Some({shape: Some(_)})) => `Sampling
|
||||||
| _ => `None
|
| _ => `None
|
||||||
}
|
}
|
||||||
let getShape = (r: outputs) =>
|
let getShape = (r: outputs) =>
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
// This transforms an array intesperced with spaces or newlines with a normally formatted one.
|
// This transforms an array intersperced with spaces or newlines with a normally formatted one.
|
||||||
// "3 4 5 3 2 1 " -> "[3,4,5,3,2,1]""
|
// "3 4 5 3 2 1 " -> "[3,4,5,3,2,1]""
|
||||||
let formatMessyArray = str => {
|
let formatMessyArray = str => {
|
||||||
let split = Js.String.splitByRe([%re "/\\n|\\r|\\s/"], str);
|
let split = Js.String.splitByRe([%re "/\\n|\\r|\\s/"], str);
|
||||||
|
|
Loading…
Reference in New Issue
Block a user