Check box data filter

Jackie_

Hi,

 

I want to have a checkbox where the user can select the option to view the data. I tried using function but something doesn't seem to be correct in my code. Could you please advice?

 

Names default to here( 1 );

dt = Open( "$SAMPLE_DATA/Time Series/Raleigh Temps.jmp" );

New window(
	"Graph with filter",
	Data filter context box(
		H list box(
			V list box(
				Text Box( "Enter month:"),
				check Box( {"1","2", "3"}, << set(2),
					<<SetFunction( Function( {neb}, 
						ldf << (Filter Column( :Month Number ) << Where( :Month Number == ( neb << Get()) ) );
					))
				),
				lb = outline box( 
					"data filter", 
					ldf = dt << Data filter( 
						"Local", 
						Add Filter(
							columns( :Month Number ),
							Where( :Month Number == 1 )
						)
					)
				),
				<< Padding(
					Left(20), Right(20), Top(20), Bottom(20)
				)
			),
			dt << Graph Builder(
				Size( 400, 300 ),
				Show Control Panel( 0 ),
				Variables(
					X( :Name( "Month/Year" ) ),
					Y( :Temperature ),
					Y( :Predicted Temperature, Position( 1 ) )
				),
				Elements( Line( X, Y( 1 ), Y( 2 ), Legend( 23 ) ) )
			);
		)
	)
);

lb << Visibility("collapse");

 

danschikore

In general I think it works best to fully evaluate exprs within the Where clause that are constant, before you send the message to the data filter.  In this small excerpt, I also switched from a Check Box to a Radio Box.  The problem with a Check Box is that you can select ranges that may not actually be possible in the filter (select 1,3, but not 2).

	radio Box( {"1","2", "3"}, << set(2),
		<<SetFunction( Function( {neb}, 
			Eval(EvalExpr(
				ldf << (Filter Column( :Month Number ) <<
					Where( :Month Number == ( Expr(neb << Get())) ) );
			))
		))
	),

You might consider changing the modeling type for the Month Number in this example to Nominal/Ordinal (either in the data table or just for the filter, in the red-triangle menu).  This would give you more flexibility in the Where clause that would support Check Box type behavior, or you may be able to simply use the built-in Check Box and Radio Box modes of the filter.  This is a JMP 16 example:

dt = Open( "$SAMPLE_DATA/Time Series/Raleigh Temps.jmp" );

dt << Graph Builder(
	Size( 400, 563 ),
	Show Control Panel( 0 ),
	Variables(
		X( :"Month/Year"n ),
		Y( :Temperature ),
		Y( :Predicted Temperature, Position( 1 ) )
	),
	Elements( Line( X, Y( 1 ), Y( 2 ), Legend( 23 ) ) ),
	Local Data Filter(
		Add Filter(
			columns( :Month Number ),
			Modeling Type( :Month Number, Nominal ),
			Where( :Month Number == {1, 3} ),
			Display(
				:Month Number,
				N Items( 5 ),
				"Check Box Display",
				Find( Set Text( "" ) )
			)
		)
	)
);