DataTables for Applications and Dashboards

Question

Hello All,

I want to build code for an application/dashboard. The first part of my code imports some tables, does some filtering and formatting and then builds some graphs and reports.

After this I would like to have general code to build an application/dashboard to display the reports I made earlier using the already existing datatables (after the filtering and formatting). I have not been able to figure this out via scripting without getting prompted to select the datatables used for the analysis or already being embedded but incorrectly. Basically, datatable 1 uses the current data table designation and that is fine but the second one that is needed becomes embedded but essentially it is defaulted to the unformatted and unfiltered one even though as a variable the formatted is overwritten onto the original.

I tried also saving my formatted tables and then using the full paths (global variables) to recall them but still I get prompted to select which tables I want to build the application when I try to run the code.

Overall, I am trying to make this as general as possible and to script it since every time it is ran the data tables used will have different data (same or almost same columns but different data).

I do not have a ton of experience with dashboard save for building ones in the dashboard builder and not fully scripting it out.

Thanks

AdditiveRange10 · Answer

Thanks a lot. I will check these out

jthi · Answer

I did some cleanup on the first part of the script and it hopefully gives you some ideas regarding scripting and writing JSL

Names Default To Here(1);

new_folder = "MYFOLDER";

// Checking for scriptable should be unnecessary
dt1 = Open("XXXXX.csv");

// Datatable(dt1) is unnecessary in 99% of cases
// Use << Get Rows Where instead of Select Where with Rows() in subset
// Use output table() to make debugging much easier
dt2 = dt1 << Subset(Rows(dt1 << Get Rows Where(:X == "1" & :"Y"n == "2" & :Z == "3")), Selected Columns(0), Output Table("MainDataTable"));

dt3 = Open("YYYY.csv");
dt3 << Set Name("SpecTable");

// simpler in this case
saveloc_dt2 = new_folder || "\MainDataTable.csv";
dt2 << Save(saveloc_dt2);

saveloc_dt3 = new_folder || "\SpecTable.csv";
dt3 << Save(saveloc_dt3);

// You can send messages directly to data table, do not use current data table() if possible
cc_expr = Expr(dt2 << Control Chart Builder(
	Show Control Panel(0),
	Show Capability(0),
	Size(700, 450),
	Show Excluded Region(0),
	Variables(Y(:X)),
	Local Data Filter(Add Filter(columns(:Z), Display(:A, Find(Set Text(""))))),
	Chart(Position(1), Limits(Shade Zones(0)))
));

ps_expr = Expr(dt2 << Process Screening(
	Process Variables(
		:A,
		:B,
		:C,
		Grouping(:Y),
		Control Chart Type("Indiv and MR"),
		Within Sigma(0),
		Overall Sigma(0),
		Stability Index(0),
		Show Tests(0),
		Out of Spec Count(1),
		Out of Spec Rate(1),
		Latest Out of Spec(0),
		N Subgroups(0),
		Ppk(1),
		Cp(1),
		Cpk(1),
		Cpm(1),
		Spec Limits(1),
		Use Limits Table(1, Data Table("SpecTable"), Process Variables(:Process), Grouping(:Z), LSL(:LSL), USL(:USL), Target(:Target), Go),
		Goal Plot(0, Capability Lines(1.33), Shade Levels(0)),
		Process Performance Graph(0)
	)
));

nw = New Window("My report",
	V List Box(
		cc = cc_expr,
		ps = ps_expr
	)
);

One option of building reports is to wrap the platform calls with Expr() and then call those expressions inside new window You can also skip expressions and just build the window with platform calls (or use few other methods)

nw = New Window("My report",
	V List Box(
		cc = dt2 << Control Chart Builder(
			Show Control Panel(0),
			Show Capability(0),
			Size(700, 450),
			Show Excluded Region(0),
			Variables(Y(:X)),
			Local Data Filter(Add Filter(columns(:Z), Display(:A, Find(Set Text(""))))),
			Chart(Position(1), Limits(Shade Zones(0)))
		),
		ps = dt2 << Process Screening(
			Process Variables(
				:A,
				:B,
				:C,
				Grouping(:Y),
				Control Chart Type("Indiv and MR"),
				Within Sigma(0),
				Overall Sigma(0),
				Stability Index(0),
				Show Tests(0),
				Out of Spec Count(1),
				Out of Spec Rate(1),
				Latest Out of Spec(0),
				N Subgroups(0),
				Ppk(1),
				Cp(1),
				Cpk(1),
				Cpm(1),
				Spec Limits(1),
				Use Limits Table(1, Data Table("SpecTable"), Process Variables(:Process), Grouping(:Z), LSL(:LSL), USL(:USL), Target(:Target), Go),
				Goal Plot(0, Capability Lines(1.33), Shade Levels(0)),
				Process Performance Graph(0)
			)
		)
	)
);

I suggest you check out Scripting Guide from JMP Help. No need to read through everything but take a peak here and there to see what it contains.

AdditiveRange10 · Answer

dt1 = Open( "XXXXX.csv" ); If( Not( Is Scriptable( dt1 ) ), dt1 = Open( "XXXXX.csv" ),); Wait( 2 ); dt2=Data Table( dt1 ) << Subset( Rows( Data Table( dt1 ) << Select Where ( :X == "1" & :"Y"n == "2" & :Z == "3)), All Columns); Wait( 2 ); dt3 = Open( "YYYY.csv" ); If( Not( Is Scriptable( dt3 ) ), dt3 = Open( "YYYY.csv" ),); dt2 << Set Name("MainDataTable"); dt3 << Set Name("SpecTable");
::saveloc_dt2 = Concat Items( {new_folder, "\MainDataTable",".csv"}, "" );
dt2 << Save(saveloc_dt2);
::saveloc_dt3 = Concat Items( {new_folder, "\SpecTable",".csv"}, "" );
dt3 << Save(saveloc_dt3); Current Data Table( dt2 ); cc = Control Chart Builder(Show Control Panel(0),Show Capability(0),Size(700,450),Show Excluded Region( 0 ), Variables( Y( :X ) ), Local Data Filter( Add Filter( columns( :Z), Display( :A, Find( Set Text( "" ) ) ))), Chart( Position( 1 ), Limits( Shade Zones( 0 ) ) ));); Current Data Table( dt2 ); process_screening = Process Screening( Process Variables( :A, :B, :C, Grouping( :Y ),Control Chart Type( "Indiv and MR" ),Within Sigma( 0 ),Overall Sigma( 0 ),Stability Index( 0 ),Show Tests( 0 ),Out of Spec Count( 1 ),Out of Spec Rate( 1 ), Latest Out of Spec( 0 ),N Subgroups (0 ),Ppk( 1 ),Cp( 1 ),Cpk(1),Cpm(1),Spec Limits( 1 ), Use Limits Table( 1, Data Table( "SpecTable" ), Process Variables( :Process ), Grouping( :Z ), LSL( :LSL ), USL( :USL ), Target( :Target ), Go ), Goal Plot( 0, Capability Lines( 1.33 ), Shade Levels( 0 ) ), Process Performance Graph( 0 )); JMP App( Set Name( "Application" ), Set Description( "An empty workspace for creating custom applications with one or more windows and scripts" ), Auto Launch( 1 ), Snap To Grid( 1 ), Show Grid( 1 ), Show Properties( 1 ), Show Sources( 1 ), Group By Category( 1 ), Dashboard Mode( 0 ), Parameters, Tables( DataTable2 = GuiTable( Set Path( saveloc_dt2 ), Set Label( "MainDataTable" ), Location( "Full Path" ), Invisible( 0 ) ), DataTable3 = GuiTable( Set Path( saveloc_dt3 ), Set Label( "SpecTable" ), Location( "Full Path" ), Invisible( 1 ))),
. . . . I thought this way I can reference the datatables I had just formatted (and saved) in the application but instead I get a window that prompts me to select which tables I want to use. That is the part I wish to avoid. I suppose the other option is to just make the reports I want and use the Combine Windows function to put them in a dashboard type window and then try to get the right spacing etc.