topic Hiding 'Where (...)' textboxes in graphics using JSL in Discussions

Hiding 'Where (...)' textboxes in graphics using JSL

BJensen — Sun, 11 Jun 2023 11:05:48 GMT

Hello,

Is it possible to hide/remove the line of text with Where(col="x") as shown in the attached image using scripting? I'm new to JMP and haven't quite figured out all the ins and outs yet.

I have a set of stacked data where all of the metabolites/count labels (pH, osmo, etc) are in one column and all of the corresponding data is in another. In my case, the where() textbox is irrelevant since I've renamed my figure titles with the same label. I can manually hide the text box temporarily by right clicking when I view the image in JMP, but aren't sure how to hide it using JSL and keep it hidden when I export to html.

Here is an example script for one of my graphics:

Graph Builder(
			Size( 531, 464 ),
			Show Control Panel( 0 ),
			Variables(
				X( :Step ),
				Y( :Name( "BR Metabolite/Count Data" ) ),
				Overlay( :Run )
			),
			Elements(
				Line( X, Y, Legend( 1 ) ),
				Points( X, Y, Legend( 2 ), Jitter Limit( 0.2018 ) )
			),
			Where( :Name( "Metabolite/Count" ) == "pH" ),
			SendToReport(
				Dispatch(
					{},
					"Graph Builder",
					OutlineBox,
					{Set Title( "pH" ), Image Export Display( Normal )}
				),
				Dispatch(
					{},
					"graph title",
					TextEditBox,
					{Set Text( "pH vs. Step" )}
				),
				Dispatch( {}, "Y title", TextEditBox, {Set Text( "pH" )} )
			)
		);

Thank you for the help!

Re: Hiding 'Where (...)' textboxes in graphics using JSL

txnelson — Mon, 14 Sep 2020 19:07:51 GMT

This should work

gb = Graph Builder(
	Size( 531, 464 ),
	Show Control Panel( 0 ),
	Variables(
		X( :Step ),
		Y( :Name( "BR Metabolite/Count Data" ) ),
		Overlay( :Run )
	),
	Elements(
		Line( X, Y, Legend( 1 ) ),
		Points( X, Y, Legend( 2 ), Jitter Limit( 0.2018 ) )
	),
	Where( :Name( "Metabolite/Count" ) == "pH" ),
	SendToReport(
		Dispatch(
			{},
			"Graph Builder",
			OutlineBox,
			{Set Title( "pH" ), Image Export Display( Normal )}
		),
		Dispatch(
			{},
			"graph title",
			TextEditBox,
			{Set Text( "pH vs. Step" )}
		),
		Dispatch( {}, "Y title", TextEditBox, {Set Text( "pH" )} )
	)
);

(Report( gb ) << top parent)[Text Box( 1 )] << delete;

Re: Hiding 'Where (...)' textboxes in graphics using JSL

Mark_Bailey — Tue, 15 Sep 2020 12:07:42 GMT

The use of the << Delete message in this case will affect the change that you want probably without repercussions. A safer change is available through the << Visibility message. Use the Collapse argument to make it invisible and not save its space in the window.

Re: Hiding 'Where (...)' textboxes in graphics using JSL

BJensen — Tue, 15 Sep 2020 13:55:43 GMT

Thanks for your help.

It works great for a single figure, but isn't adding any of the modified figures to my vlistbox now. It always spits out a blank box when I try to combine them. I also tried <<visibility(1) and had the same results.

(Report( gb1 ) << top parent)[Text Box( 1 )] << delete;		
(Report( gb2 ) << top parent)[Text Box( 1 )] << delete;		
(Report( gb3 ) << top parent)[Text Box( 1 )] << delete;		
(Report( gb4 ) << top parent)[Text Box( 1 )] << delete;		
//(Report( gb5 ) << top parent)[Text Box( 1 )] << delete;		
(Report( gb6 ) << top parent)[Text Box( 1 )] << delete;		
(Report( gb7 ) << top parent)[Text Box( 1 )] << delete;		
(Report( gb8 ) << top parent)[Text Box( 1 )] << delete;		
(Report( gb9 ) << top parent)[Text Box( 1 )] << delete;		
(Report( gb10 ) << top parent)[Text Box( 1 )] << delete;

fig3 = expr( 
New Window( "Production Bioreactor - Metabolites/Counts",
	V List Box(gb1,gb2,gb3,gb4, gb6, gb7,gb8,gb9,gb10,gb11,gb12,gb13
	)
));

Re: Hiding 'Where (...)' textboxes in graphics using JSL

txnelson — Tue, 15 Sep 2020 14:36:20 GMT

Without seeing your full script, it is pretty hard to determine where the issue is. My other question is, why are you doing all of the deletes at a single point in your code, rather than having the delete code at the point where the graph is being produced? Or are you using a By clause in your code, which changes the Display Tree structure to a completely different hierarchy from the single stand alone graph.

Re: Hiding 'Where (...)' textboxes in graphics using JSL

BJensen — Tue, 15 Sep 2020 14:55:58 GMT

No worries. Thanks for your help regardless. I'll mess around and see if I can get something to work.

Like I said, I'm new to JMP so not everything is streamlined very efficiently at this point. I was originally making all of my graphics directly inside of my vlistbox, but wasn't sure how to incorporate your line of code into that. So I pulled all my figures out of the vlistbox and added all of the delete lines separately.

I was using the By clause originally but ran into several issues adding the report to a web report. So I instead of save by-group script to clipboard, I used save script to scriptwindow (all objects) like example below:

Graph Builder(
	Variables( X( :Passage Number ), Y( :Preculture Data ) ),
	Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
	By( :Name( "Metabolite/Count" ) )
);

New Window( "PCstack - Graph Builder",
	V List Box(
		Graph Builder(
			Variables( X( :Passage Number ), Y( :Preculture Data ) ),
			Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
			Where( :Name( "Metabolite/Count" ) == "VCD at Split" )
		),
		Graph Builder(
			Variables( X( :Passage Number ), Y( :Preculture Data ) ),
			Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
			Where( :Name( "Metabolite/Count" ) == "Viability at Split" )
		),
		Graph Builder(
			Variables( X( :Passage Number ), Y( :Preculture Data ) ),
			Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
			Where( :Name( "Metabolite/Count" ) == "VCD at Inoc" )
		),
		Graph Builder(
			Variables( X( :Passage Number ), Y( :Preculture Data ) ),
			Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
			Where( :Name( "Metabolite/Count" ) == "PDL" )
		),
		Graph Builder(
			Variables( X( :Passage Number ), Y( :Preculture Data ) ),
			Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
			Where( :Name( "Metabolite/Count" ) == "PDT(h)" )
		)
	)
);

Re: Hiding 'Where (...)' textboxes in graphics using JSL

txnelson — Tue, 15 Sep 2020 15:22:15 GMT

Here is one way of handling it

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );

New Window( "big class - Graph Builder", vlb = V List Box() );

gb1 = Graph Builder(
	invisible,
	Size( 528, 456 ),
	Show Control Panel( 0 ),
	Variables( X( :weight ), Y( :height ) ),
	Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
	Where( :age == 12 )
);
(Report( gb1 ) << top parent)[Text Box( 1 )] << delete;
vlb << append( Report( gb1 ) );

gb2 = Graph Builder(
	invisible,
	Variables( X( :weight ), Y( :height ) ),
	Show Control Panel( 0 ),
	Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
	Where( :age == 13 )
);
(Report( gb2 ) << top parent)[Text Box( 1 )] << delete;
vlb << append( Report( gb2 ) );
gb3 = Graph Builder(
	invisible,
	Variables( X( :weight ), Y( :height ) ),
	Show Control Panel( 0 ),
	Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
	Where( :age == 14 )
);
(Report( gb2 ) << top parent)[Text Box( 1 )] << delete;
vlb << append( Report( gb3 ) );

Re: Hiding 'Where (...)' textboxes in graphics using JSL

ThuongLe — Sat, 19 Sep 2020 07:11:29 GMT

I found very neat solution online :)

dp = New Window("Graph Window", tb);

//delete all "Where" text on the chart
For( i = 1000, i > 0, i--, 
	try(
		If( Contains( dp[Text Box( i )] << get text, "Where(:" ),
			dp[Text Box( i )] << delete;
		)
	);
);

Hope this helps