Save small datatable to Journal

[#1]

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?

[#2]

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.

[#3]

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

[#4]

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.

[#5]

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!

[#6]

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 

[#7]

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?

[#8]

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.

[#9]

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 );

[#10]

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.