proc sql;
    
create table ClassM as select * from sashelp.class where sex='M';
    
create table ClassF as select * from sashelp.class where sex='F';
quit;
%let temp_dir=c:/temp;
proc iml;

    
call ExportDataSetToR("ClassM""ClassM" );
    call ExportDataSetToR("ClassF""ClassF" );
    
    temp_dir=
"&temp_dir";

    
submit temp_dir / R;
        png(file="&temp_dir/ClassM.png", bg="transparent")
        barplot(ClassM$Weight, names=ClassM$Name,
            xlab=
"Name", ylab="Weight",
            main=
"Weight Bar Chart for Boys"
            border=
"red",
            col=
"blue",
            density=
10)
        png(file=
"&temp_dir/ClassF.png", bg="transparent")
        barplot(ClassF$Weight, names=ClassF$Name,
            xlab=
"Name", ylab="Weight",
            main=
"Weight Bar Chart for Girls"
            border=
"blue",
            col=
"red",
            density=
10)
    endsubmit;

quit;


%Macro SendtoHTML(file=,type=);
    
/* If running in EG, turn on HTML in program Properties  */
    
/* and use the ODS Report writing interface */
%put _CLIENTAPP="&_CLIENTAPP";
    %if "&_CLIENTAPP" = "'SAS Enterprise Guide'" %then
        
%do;
            
%put Using Report Writing Interface;
            data _null_;
                dcl odsout obj();
                obj.image(file: 
"&temp_dir/&file..&type");
            run;

        
%end;
    
/* Otherwise, create an HTML document via standard ODS */
    
%else
        
%do;
            
%put Using Standard ODS;
            ODS ESCAPECHAR='^';
            ODS HTML FILE=
"&temp_dir/&file..html" STYLE=minimal
                GPATH=
'&temp_dir/' GTITLE GFOOTNOTE;

            DATA _NULL_;
                FILE PRINT;
                PUT 
"<IMG SRC='&file..&type' BORDER='0'>";
            RUN;

            ODS _ALL_ close;
        
%end;
%mend;

%
SendtoHTML(file=ClassM,type=png);
%SendtoHTML(file=ClassF,type=png);