How to set up a report window so that combined data table will show by value

pauldeen

I'm trying to recreate JMP's internal behavior: When doing a combined table in a distribution report, the resulting table will list the by value in the first column. When I create my own nested table structure I do not get this first column in the resulting combined data table. How can I define my window structure in such a way that I will generate two identical combined data tables?

 

See the difference by running this example script:

/* Open a sample data table */
dt = Open( "$SAMPLE_DATA\Big Class.jmp" );

/* Generate the Distribution with a By variable */
dist = dt << Distribution( Continuous Distribution( Column( :height ) ), By( :sex ) ); 

/* Create the combined data table of Summary Statistics */
Report( dist[1] )["Summary Statistics"][Table Box( 1 )] << Make Combined Data Table;

TestWindow = new window("Test with multiple tables",main = v list box());
main << Append(
	Outline Box( "Distributions sex=F",
		Outline Box( "height",
			Outline Box( "Summary Statistics",
				Table Box(
					String Col Box("",
						{"Mean", "Std Dev", "Std Err Mean", "Upper 95% Mean", "Lower 95% Mean", "N", "Sum", "Variance", "CV", "N Missing"}
					),
					Number Col Box("",
						{60.8888888888889, 3.61189031311679, 0.851330711102296, 62.6850396850604, 59.0927380927173, 18, 1096, 13.0457516339869,
						5.93193664562977, 0}
					)
				)
			)
		)
	)
);
main << Append(
	Outline Box( "Distributions sex=M",
		Outline Box( "height",
			Outline Box( "Summary Statistics",
				Table Box(
					String Col Box("",
						{"Mean", "Std Dev", "Std Err Mean", "Upper 95% Mean", "Lower 95% Mean", "N", "Sum", "Variance", "CV", "N Missing"}
					),
					Number Col Box("",
						{63.9090909090909, 4.3084533840777, 0.918565347870119, 65.8193521238087,
						61.9988296943731, 22, 1406, 18.5627705627705, 6.7415344558826, 0}
					)
				)
			)
		)
	)
);

TestWindow["Summary Statistics"][Table Box( 1 )] << Make Combined Data Table;

Justin_Chilton

You can circumvent that by creating a function to create your combined data table and set the function to run as a context menu script for the TableBox. See below for details. Please note that you can add some of the other context menu items back if you need them (with a little work) using the JSL message equivalents.

customMakeCombinedDataTable = Function({},
	// Get a list of all of all invisible columns 
	collapsedCols = TestWindow  <<Xpath( "//StringColBox[@isVisible='false']" );

	// turn on the visibility of these columns
	collapsedCols << visibility( "visible" );

	// make a combined data table from the tables
	TestWindow[TableBox(1)] << Make Combined Data Table();

	// set the columns back to collapsed
	collapsedCols << visibility( "Collapse" );
);

// List to be used as the argument in the "Set Context Menu Script" message
contextMenuScriptList = {"Make Combined Data Table", customMakeCombinedDataTable()};

TestWindow = new window("Test with multiple tables",main = v list box());
main << Append(
	Outline Box( "Distributions sex=F",
		Outline Box( "height",
			Outline Box( "Summary Statistics",
				tb1 = Table Box(
					String Col Box( "Sex", Repeat( {"F"}, 10 ), <<Visibility( "Collapse" ) ),
					String Col Box("",
						{"Mean", "Std Dev", "Std Err Mean", "Upper 95% Mean", "Lower 95% Mean", "N", "Sum", "Variance", "CV", "N Missing"}
					),
					Number Col Box("",
						{60.8888888888889, 3.61189031311679, 0.851330711102296, 62.6850396850604, 59.0927380927173, 18, 1096, 13.0457516339869,
						5.93193664562977, 0}
					),
					<<Set Context Menu Script( contextMenuScriptList )
				)
			)
		)
	)
);
main << Append(
	Outline Box( "Distributions sex=M",
		Outline Box( "height",
			Outline Box( "Summary Statistics",
				Table Box(
					String Col Box( "Sex", Repeat( {"M"}, 10 ), <<Visibility("Collapse") ),
					String Col Box("",
						{"Mean", "Std Dev", "Std Err Mean", "Upper 95% Mean", "Lower 95% Mean", "N", "Sum", "Variance", "CV", "N Missing"}
					),
					Number Col Box("",
						{63.9090909090909, 4.3084533840777, 0.918565347870119, 65.8193521238087,
						61.9988296943731, 22, 1406, 18.5627705627705, 6.7415344558826, 0}
					),
					<<Set Context Menu Script( contextMenuScriptList )
				)
			)
		)
	)
);