topic Re: Table Column Headers - possible to make vertical? in Discussions

Table Column Headers - possible to make vertical?

djhanson — Wed, 19 Feb 2020 15:54:35 GMT

Hi, Is there any way to change a table report's column headers from horizontal to vertical alignment? (like Excel can)

For example, working with a dt with a <<Get As Report or working with a Tablebox() with associated String Col Box() and Number Col Box() commands. If possible, this would save a ton of space for viewing purposes on larger tables. (i.e. saving the table report as a PNG, etc)
Else, column headers tend to wrap the table way too much to the right making it more difficult to view. (while the value contents have a ton of white space so condensing them is fine)

thanks, DJ

Re: Table Column Headers - possible to make vertical?

Mark_Bailey — Wed, 19 Feb 2020 16:26:04 GMT

Not as far as I can tell.

Re: Table Column Headers - possible to make vertical?

Byron_JMP — Mon, 24 Feb 2020 16:48:34 GMT

I'm pretty sure the answer is no too, and here's why.

If you run this script, you'll get a list of properties and none of them can be set to vertical orientation.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << Select Where( :Age < 14 );
dt << Select Columns( :name, :age, :height );
jmp_report = New Window( "Big Class",
	Text Box( "Big Class" ),
	H List Box( Outline Box( "Big Class", dt << Get As Report ) ),
);
jmp_report<<get properties;

If this is bad news, head over to the wish list and make a suggestion

Alternatively, just transpose the table to get this

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp",invisible );
Column( dt, "height" ) << set name(
	"Super long column name that tends to cause trouble"
);
Column( dt, "weight" ) << set name(
	"Terrible, horrible, no-good, very bad long column name"
);
dtsub = dt << Subset(
	Selected Rows( 0 ),
	Rows( [1, 2, 3, 4, 5, 6, 7, 8] ),
	Selected columns only( 0 ),invisible
);close(dt,nosave);
dtsubxp = dtsub << Transpose(
	columns( Column( 4 ), Column( 5 ) ),
	Label( :name ),
	Label column name( "name" ),
	Output Table( "Transpose of Subset of Big Class" )
);close(dtsub,nosave);

Column( dtsubxp, 1 ) << Set Display Width( 440 );
obj = dtsubxp << get as report;
dtsubxp << journal;