topic Re: Add Script to Existing Script Group in Discussions

Add Script to Existing Script Group

SpannerHead — Thu, 16 Jan 2025 22:33:32 GMT

As usual, not sure how I got here but I have a script that groups the embedded scripts in a JMP table if they contain the word "History" in the title. I have a script "Split Table" that I embed later that I would like to add to the "History" group of scripts. Is there an easy way to do that without disassembling the group in the first place?

lstScripts = Current Data Table() << Get Table Script Names;

History_scripts = {};
For( j = 1, j <= N Items( lstScripts ), j++,
	If( Contains ( lstScripts[j] , "History" ),
		Insert Into( History_scripts, lstScripts[j] )
	)
);

Show(History_scripts);

Current Data Table() << Group Scripts( History_scripts ) << rename script group( "Tool History etc.", "History");

Re: Add Script to Existing Script Group

txnelson — Thu, 16 Jan 2025 23:08:01 GMT

It looks like you will need to get the names of the scripts in the history group using

Get Script Group

Then ungroup the scripts using

Ungroup Scripts

Then add your the script name that you want to add to the history group

If the history group name list is hisgp

insert into(hisgp, <the new script name to be added>(

Then create the history group using the updated list using

Group Scripts

Re: Add Script to Existing Script Group

hogi — Fri, 17 Jan 2025 05:55:31 GMT

Hm , I did not find such a function.

But it's easy to generate it:

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << group scripts(
	"myGroup",
	{"Graph Builder Smoother Line", "Graph Builder Line and Bar Charts",
	"Graph Builder Line Chart", "Graph Builder Heat Map"}
);


insert Script = Function( {dt, groupName, scriptName}, 
//{default local},
	myList = dt << get script group( groupName );
	Insert Into( myList, scriptName );
	dt << group scripts( groupName, mylist );
);

insert Script( dt, "myGroup", "Logistic" )

Re: Add Script to Existing Script Group

hogi — Thu, 16 Jan 2025 23:12:47 GMT

Now I found it:

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << group scripts(
	"myGroup",
	{"Graph Builder Smoother Line", "Graph Builder Line and Bar Charts",
	"Graph Builder Line Chart", "Graph Builder Heat Map"}
);

dt << group scripts("myGroup", "Logistic")

Re: Add Script to Existing Script Group

hogi — Fri, 17 Jan 2025 05:56:25 GMT

"I"
... actually it was him:

And now I remember ...
I accidentally detected this trick and used it in
https://marketplace.jmp.com/appdetails/Graph+Builder+Toolbar / SendToPowerpoint to add scripts of exported graphs to

Re: Add Script to Existing Script Group

SpannerHead — Fri, 17 Jan 2025 15:13:03 GMT

Thanks Hogi. Somehow I'm not getting that to work (amateur hour probably). I'm using this and it works.

lstScripts = Current Data Table() << Get Table Script Names;

History_scripts = {};
For( j = 1, j <= N Items( lstScripts ), j++,
	If( Contains ( lstScripts[j] , "History" ),
		Insert Into( History_scripts, lstScripts[j] )
	)
);

For( j = 1, j <= N Items( lstScripts ), j++,
	If( Contains( lstScripts[j], "Split Table" ),
		Insert Into( History_scripts, lstScripts[j] )
	)
);

Current Data Table() << Group Scripts( History_scripts );