topic Re: How to automatically extract the column name used by the formula in the JSL code? in Discussions

How to automatically extract the column name used by the formula in the JSL code?

lwx228 — Mon, 25 May 2020 08:12:43 GMT

How to use JSL to automatically extract from a JSL formula the column names used by the formula, and group them into a combination.

For example, in the image of 1, automatically extract the column name to get a combination of 2.

Thanks!

dt = Current Data Table();
dt << New Column( "text", formula( :K36 >= 71.93 & :XA >= -32.3 & :a1 >= -43.67 & :A56 < 18.9 ) );
dt << run formulas;
Column( "text" ) << deleteFormula;

Re: How to automatically extract the column name used by the formula in the JSL code?

Mark_Bailey — Mon, 25 May 2020 13:05:54 GMT

You would have to traverse the arguments of the expression used for the formula, identify the columns, and store them in a list.

Please see JMP Help > JMP Documentation Library > Scripting Guide > Chapter 8: Lists and Expressions >

Retrieve a Stored Expression Rather than its Result section. The concepts and the necessary and supporting functions are fully described and demonstrated.

Re: How to automatically extract the column name used by the formula in the JSL code?

Georg — Mon, 25 May 2020 15:25:52 GMT

probably this script does the Job for you:

// generate a table
dt = New Table( "testdata",
	add rows( 3 ),
	New Column( "K36", Continuous, set values( [70, 80, 90] ) ),
	New Column( "XA", Continuous, set values( [30, 32, 33] ) ),
	New Column( "a1", Continuous, set values( [-50, -40, -30] ) ),
	New Column( "A56", Continuous, set values( [10, 20, 10] ) )
);

// add a formula
dt << New Column( "f1", formula( :K36 >= 71.93 & :XA >= -32.3 & :a1 >= -43.67 & :A56 < 18.9 ) );
dt << run formulas;

// get formula, convert to string and split words
formula = dt:f1 << get formula;
formula_txt_words = Words( Char( Name Expr( formula ) ) );

// search for column names in words and put it into list
columns_lst = {};
For( i = 1, i <= N Arg( formula_txt_words ), i++,
	If( Starts With( formula_txt_words[i], ":" ),
		Insert Into( columns_lst, Substitute( formula_txt_words[i], ":", "" ) )
	)
);
Show( columns_lst );

// Group columns
dt << group columns( "Cols used by f1", columns_lst );
// Column( "text" ) << deleteFormula;