cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Choose Language Hide Translation Bar
Botzal
Level III

How to save data table(colored cells) to Interactive HTML?

Hi,

 

When I saved 'dt_newin' as Interactive HTML and try to open the file (in chrome\explorer) the color in the columns disappeared.

Is there a solution to this?

Thanks

 

 

dt_newin = New Window( "Data Tool", db);

dt_newin() << journal;
Current Journal() << Save INTERACTIVE HTML( "C:\Desktop\Report\Summary Data.html" );
Current Journal() << Close window( nosave );

 

1 ACCEPTED SOLUTION

Accepted Solutions
txnelson
Super User

Re: How to save data table(colored cells) to Interactive HTML?

Here is how I typically do it

names default to here(1);
dt=Open("$SAMPLE_DATA/big class.jmp");

dt:sex << color Cells("green",dt<<get rows where(:sex=="F"));
dt:sex << color Cells("Orange",dt<<get rows where(:sex=="M"));

interium=new window("interium",<<journal);
dt<<journal;



nw=new window("The Test",<<journal,
	Outline box("Here are the data",
		interium << get picture
	)
);

interium<<close window;

nw << save interactive html ("$TEMP\data table.html");

open("$TEMP/data table.html");
Jim

View solution in original post

5 REPLIES 5
txnelson
Super User

Re: How to save data table(colored cells) to Interactive HTML?

Save the data table first to a journal and then save the journal to html
Jim
Botzal
Level III

Re: How to save data table(colored cells) to Interactive HTML?

I have tried several options, without success. -  see below.

Can you give me more details please?

 

 

charts = {};

db = Outline Box( "Cdata Tool", Outline Box( "Summary", myTab = Tab Box() ) );

For( i = 1, i <= N Items( Dis1 ), i++,
myTab << Insert(
Dis[i],
Eval(
Parse(
"charts[" || Char( i ) ||
"] = Charts_1 = V List Box(
V List Box( dt_dtarray1[i] << get as report() ),
ob1=Outline Box( \!"Drill Down Analysis
--> Click Here\!", 
V List Box( dt_dtarray2[i] << get as report() ),));"))));

ob1<<close;

dt_newin = New Window( "Cdata Tool",db,<<Journal);
dt_newin << Save interactive HTML( "\\Desktop\Report\Summary .html" );

 

 

 

 

txnelson
Super User

Re: How to save data table(colored cells) to Interactive HTML?

Here is how I typically do it

names default to here(1);
dt=Open("$SAMPLE_DATA/big class.jmp");

dt:sex << color Cells("green",dt<<get rows where(:sex=="F"));
dt:sex << color Cells("Orange",dt<<get rows where(:sex=="M"));

interium=new window("interium",<<journal);
dt<<journal;



nw=new window("The Test",<<journal,
	Outline box("Here are the data",
		interium << get picture
	)
);

interium<<close window;

nw << save interactive html ("$TEMP\data table.html");

open("$TEMP/data table.html");
Jim
Craige_Hales
Super User

Re: How to save data table(colored cells) to Interactive HTML?

Jim's approach captures a picture. Try this to have an HTML table with selectable data:

dt=Open("$SAMPLE_DATA/big class.jmp");
dt:sex << color Cells("green",dt<<get rows where(:sex=="F"));
dt:sex << color Cells("Orange",dt<<get rows where(:sex=="M"));
temp=new window("temp",<<journal);
dt<<journal;
temp<<saveHTML("$desktop/bigclass.html");
temp<<closewindow;

big class in  browserbig class in browser 

Craige
Botzal
Level III

Re: How to save data table(colored cells) to Interactive HTML?

Thank you very much, it works great!