topic Re: Save small datatable to Journal in Discussions

Save small datatable to Journal

twaintwist — Sat, 29 Sep 2012 00:24:56 GMT

I've been at this for a while and I know it's doable but I can't seem to get it to work....

I can save my Graphs to a journal but can't append a small data table (summary table) to the journal..... --- any hints?

Re: Save small datatable to Journal

Anonymous — Sat, 29 Sep 2012 15:55:28 GMT

Highlight the cells you want in the table, or select everything, then hit Crtl-J or Edit--> Journal. The selected cells should show up in the Journal with column headers.

Re: Save small datatable to Journal

twaintwist — Sun, 30 Sep 2012 00:11:35 GMT

Thanks ---- I should have been more clear in my need ---- I need to save the Datatable to a journal using a script....

Re: Save small datatable to Journal

ms — Mon, 18 Jun 2018 14:16:44 GMT

dt = Open( "$ENGLISH_SAMPLE_DATA/Big Class.jmp" ) << Summary( Group( :Age ), Mean( :Height ) );
dt << journal;

Works in JMP 9 & 10, possibly also in older versions.

Re: Save small datatable to Journal

Heidi — Mon, 18 Jun 2018 14:00:29 GMT

Hi,

Your solution works. However do you know a way to give that journal a name then I can append other graphs in the same journal?

Thanks!

Re: Save small datatable to Journal

txnelson — Mon, 18 Jun 2018 14:14:45 GMT

dt = Open( "$ENGLISH_SAMPLE_DATA/Big Class.jmp" ) << Summary( Group( :Age ), Mean( :Height ) );
xx = New Window( "my journal", <<journal );
dt << journal;

This is all covered in the Scripting Guide. I strongly encourage you to read through it

Help==>Books==>Scripting Guide

Re: Save small datatable to Journal

JeroenLubbers — Thu, 09 Nov 2023 13:09:32 GMT

I am already making an dt and journal it.

But now I want to make the table readable and comprehensive. There for I formatted my dt with :

dt << Set Cell Height( 100 );

and

dt6:Item << Set Display Width( 70 );
dt6:CaseUD << Set Display Width( 60 );
dt6:RAMS state << Set Display Width( 300 );
dt6:N Rows << Set Display Width( 40 );

......

The table looks good now, but when I do

dt6 << Journal();

The table in the journal will be without the formatting above. I tried a lot of options but can't find a way to get my formatted table into the journal.

Any ideas?

Re: Save small datatable to Journal

jthi — Thu, 09 Nov 2023 16:07:27 GMT

When you append datatable to a journal, it will be converted to Table Box with different type col boxes, widths don't seem to get copied over and you cannot have multiple lines in "normal" type col boxes. You can try to use some weird workaround like this, where you edit the table box and add extra column to it (col box can have multiple lines...)

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");

jrn = Current Journal();

dt << journal;

Column(dt, "name") << Set Display Width(150);
dt << Set Cell Height(100);

rep = dt << get as report;
tb = rep[TableBox(1)];
tb[1] << Set Width(150);
tb << Append(cb_hidden = Col Box("hidden", Text Box("", << Set N Lines(2))));
cb_hidden << Visibility("Hidden");

rep << journal;

There are hopefully better methods than this.

Re: Save small datatable to Journal

JeroenLubbers — Sun, 12 Nov 2023 20:13:52 GMT

Hi Jarmo,

Thanks for sharing this work around. This is something to try to embed in my script.

In addition, I have one column with more text. Here I use code below to make it wrap. There is no function to do that unfortunately.

dt10 << New Column( "UD event" );
:UD event << Data Type( "Character" );
dt10 << Begin Data Update;
		For each row( 
			Wstate = Words( :Reason, "/" );
			:UD event =  Wstate;		);   //:RAMS state short = Concat Items( Wstate, "," );
dt10 << End Data Update;
dt10 << Delete Columns( :Reason );

Re: Save small datatable to Journal

jthi — Sun, 12 Nov 2023 21:10:47 GMT

How do you want the text to wrap? If you have text data using Col Box(Text Box()) combination should be able to meet most of the needs for text data. If you want it to wrap on specific character it can be more difficult.

Names Default To Here(1);
win = New Window("Example", fontobj = text = Text Box("Example Text"));
text << Set Wrap(50);

Providing some small sample or mock-up data (if you cannot share real-data) which shows the issues you are facing, will most likely make it easier to provide you better instructions. Also if possible provide screenshot about how you would like the data to look like.