topic Re: Is it possible to execute a script by clicking a curve in the graph via JSL? in Discussions

Is it possible to execute a script by clicking a curve in the graph via JSL?

lwx228 — Fri, 09 Jun 2023 18:06:47 GMT

For example, I made a graph of the script below.

dt = Open( "$SAMPLE_DATA/Students2.JMP" );
dt << Sort( By( 1 ), Order( Ascending ), replacetable( 1 ) );
New Column( "A" );
Column( "A" ) << Formula( If( Row() == 1 | name != Lag( name, 1 ), 1, If( Lag( A, 1 ) < 6, Lag( A, 1 ) + 1 ) ) );
dt << run formulas;
Column( "A" ) << deleteFormula;
dt << Sort( By( "A" ), Order( DEscending ), replacetable( 1 ) );
dt << delete rows( N Rows( Loc( dt[0, "A"] > 0 ) ) + 1 :: N Row( dt ) );
dt << Sort( By( 1, "A" ), Order( Ascending, Ascending ), replacetable( 1 ) );

p1 = Graph Builder(
	Size( 528, 454 ),
	Show Control Panel( 0 ),
	Variables( X( :A ), Y( :height ), Overlay( :name ) ),
	Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) )
);

Click any conditional curve in the graph, and automatically run the specified "D :\ A.jsl"

Thanks!

Re: Is it possible to execute a script by clicking a curve in the graph via JSL?

lwx228 — Mon, 06 Dec 2021 07:09:50 GMT

This "D:\A.JSL"、I mainly achieve the following functions:
Click on the selected curve to get the "name".Use this name to get the "age" of the name in another table"Students1.JMP".Create new table "new.jmp"
Draw the diagram as above.

Finally, the two graphs and each data table are used to generate a dashboard.

Re: Is it possible to execute a script by clicking a curve in the graph via JSL?

lwx228 — Mon, 06 Dec 2021 07:17:11 GMT

JMP has similar module function, can realize the following process operation:

by clicking the selected curve, get the "name".Use this name to get the age of the name in the other table students1.jmp.A new data table is generated with the selected name alone and the "height" in Table 2 and the "age" in Table 1.

d1 = Open( "$SAMPLE_DATA/Students1.JMP" );

Thanks Experts!

Re: Is it possible to execute a script by clicking a curve in the graph via JSL?

jthi — Mon, 06 Dec 2021 07:26:12 GMT

Maybe using Row State Handler on the original data table could work? Or if you can "skip" the clicking part then you could possibly use hover labels.

Re: Is it possible to execute a script by clicking a curve in the graph via JSL?

lwx228 — Mon, 06 Dec 2021 07:47:59 GMT

Thank you very much! But I still haven't found a way.

Re: Is it possible to execute a script by clicking a curve in the graph via JSL?

lwx228 — Mon, 06 Dec 2021 07:53:06 GMT

Re: Is it possible to execute a script by clicking a curve in the graph via JSL?

lwx228 — Mon, 06 Dec 2021 08:28:50 GMT

In my implementation application, the data is not in the same file.So I don't know how to use something like this drill-down function.thanks a lot

Re: Is it possible to execute a script by clicking a curve in the graph via JSL?

ian_jmp — Mon, 06 Dec 2021 11:18:42 GMT

Perhaps I'm missing some nuance of what's needed. But building on the suggestion from @jthi, you can do this kind of thing (where, once you have the current row selection 'doSomething' can be made to do whatever JSL is capable of):

NamesDefaultToHere(1);

// Original code . . .
dt = Open( "$SAMPLE_DATA/Students2.JMP" );
dt << Sort( By( 1 ), Order( Ascending ), replacetable( 1 ) );
New Column( "A" );
Column( "A" ) << Formula( If( Row() == 1 | name != Lag( name, 1 ), 1, If( Lag( A, 1 ) < 6, Lag( A, 1 ) + 1 ) ) );
dt << run formulas;
Column( "A" ) << deleteFormula;
dt << Sort( By( "A" ), Order( DEscending ), replacetable( 1 ) );
dt << delete rows( N Rows( Loc( dt[0, "A"] > 0 ) ) + 1 :: N Row( dt ) );
dt << Sort( By( 1, "A" ), Order( Ascending, Ascending ), replacetable( 1 ) );

gb = dt <<
Graph Builder(
	Size( 528, 454 ),
	Show Control Panel( 0 ),
	Variables( X( :A ), Y( :height ), Overlay( :name ) ),
	Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) )
);

// New code  . . .

// Row state handler function to do something
doSomething = Function({x}, {Default Local},
						// 'x' is a column vector of row states that have just CHANGED. We just need those that are now selected . . .
						selectedRows = [];
						For( i = 1, i <= NRow(x), i++, If( Selected( Row State( x[i] ) ), selectedRows = VConcat(selectedRows, x[i]) ));
						Print(x);
						Print(selectedRows);
						);
// Assign the handler to the table
rsh = dt << MakeRowStateHandler(doSomething);