It works except that it does not update the graph.
for refreshing the graph I need to clear the URL, enter, and paste it in again.
@Renato_sas @XavierBizoux , any idea how to achieve it?
the bar chart performs filter actions on the other 2 DDC objects.
the invisible below uses json to write the filtered data to a promoted table.
the custumized sgplot takes this table as an input.
it works but the table promote ddc is faster and second the sgplot chart does not update until I do the trick described at the beginning.
Accepted Solutions
It still does not work @Renato_sas .
I don't know where to send the output from the proc sgplot. On its own it works but attached to the snippet that creates the table via json, it's not shown.
the log to me does not reveal much.
If I send a html via ods command the file and its png get written correctly to the specified path.
But this machine is not reachable via VA so the workaround to grab it via web content does not work either.
The problem is that I don't understand html at all, what I do is copy/paste trial and error.
I don't understand why viya makes it so complicated to have ods graphs within Visual Analytics. It's crazy, you can insert third party visualizations easier than sas own powerful ods graphics.
* The JSON file this job expects contains the modified JSON message;
* that SAS Visual Analytics sent to the Data-Driven Content object.;
* It contains transformed data and additional column metadata. ;
*==================================================================;
* Initialization;
*==================================================================;
* This allows for unconventional column names (e.g.: spaces, etc.);
options VALIDVARNAME=any;
* This allows for the stopOnError macro function to run the sas commands after an error occurs;
options NOSYNTAXCHECK;
%macro stopOnError(msg);
%put &=SYSRC &=SYSCC &=SYSFILRC &=SYSLIBRC &=SYSERR SYSERRORTEXT=%superq(syserrortext) &=MSG;
%if (&msg eq ) %then %let msg=%superq(syserrortext);
%if (&syserr > 6 or &msg ne ) %then %do;
proc json out=_webout nosastags nopretty nokeys;
write open object;
write values "success" false;
write values "retcode" &SYSERR;
write values "message" "&MSG";
write close;
run;
cas mySession terminate;
%let SYSCC=0;
%abort cancel;
%end;
%mend stopOnError;
%macro checkParams;
%if (not %symexist(castab)) %then %stopOnError(Missing parameter CASTAB);
%mend checkParams;
%checkParams;
* Connect to CAS and assign the CASUSER library;
options cashost="xxxxx.yYy.es" casport=xxXX;
cas mySession;
%stopOnError();
libname casuser CAS caslib="casuser";
%stopOnError();
* Retrieve JSON data from uploaded file;
filename vaJSON filesrvc "&_WEBIN_FILEURI";
%stopOnError();
* Use the JSON engine to provide read-only sequential access to JSON data;
libname jsonLib json fileref=vaJSON;
%stopOnError();
* Create table to assist creation of JSON map file;
* Replace blank spaces in column names with underscore (_);
* Output table contains column name, label, type, format, format width, and format precision;
%macro prepColMetadata;
%if %sysfunc(exist(jsonLib.columns_format)) %then %do;
proc sql noprint;
create table col_metadata as (
select
c.ordinal_columns, translate(trim(c.label),'_',' ') as column,
c.label,
c.type4job as type,
f.name4job as fmt_name,
f.width4job as fmt_width,
f.precision4job as fmt_precision
from jsonLib.columns c left join jsonLib.columns_format f
on c.ordinal_columns = f.ordinal_columns
);
quit;
%stopOnError();
%end;
%else %do;
* table columns_format does not exsist;
* all columns are strings (no format object in the JSON structure);
proc sql noprint;
create table col_metadata as (
select
c.ordinal_columns, translate(trim(c.label),'_',' ') as column,
c.label,
c.type4job as type,
"" as fmt_name,
. as fmt_width,
. as fmt_precision
from jsonLib.columns c
);
quit;
%stopOnError();
%end;
%mend;
%prepColMetadata;
filename jmap temp lrecl=32767;
%stopOnError();
* Create JSON map file to be used to read VA JSON with proper labels, formats, types, etc.;
data _null_;
file jmap;
set col_metadata end=eof;
if _n_=1 then do;
put '{"DATASETS":[{"DSNAME": "data_formatted","TABLEPATH": "/root/data","VARIABLES": [';
end;
else do;
put ',';
end;
if fmt_name ne "" then
line=cats('{"PATH":"/root/data/element',ordinal_columns,
'","NAME":"',column,
'","LABEL":"',label,
'","TYPE":"',type,
'","FORMAT":["',fmt_name,'",',fmt_width,',',fmt_precision,']}');
else
line=cats('{"PATH":"/root/data/element',ordinal_columns,
'","NAME":"',column,
'","LABEL":"',label,
'","TYPE":"',type,'"}');
put line;
if eof then do;
put ']}]}';
end;
run;
%stopOnError();
* Reassign JSON libname engine to provide read-only sequential access to JSON data, now with map;
libname jsonLib json fileref=vaJSON map=jmap;
%stopOnError();
*==================================================================;
* Main Processing;
*==================================================================;
* Add table to CAS lib casuser (session scope);
* Add table to CAS lib casuser (session scope);
data casuser.&CASTAB._TMP;
set jsonLib.data_formatted;
run;
%stopOnError();
options nofmterr;
data casuser.&CASTAB._TMP;
set casuser.&CASTAB._TMP ;
where meses_efectivos le 84 and actual_mileage le 200000;
keep keep meses_efectivos actual_mileage _brand _gama;
run;
%stopOnError();
* Put table on its final destination: casuser and global scope;
proc casutil;
droptable casdata="&CASTAB" incaslib="casuser" QUIET;
promote casdata="&CASTAB._TMP" incaslib="casuser"
casout="&CASTAB" outcaslib="casuser" DROP;
run;
quit;
%stopOnError();
* Declare input parameters;
* This allows for unconventional column names (e.g.: spaces, etc.);
options VALIDVARNAME=any;
caslib _ALL_ assign;
options casdatalimit=all;
data test;
set casuser.bees;
where meses_efectivos le 84 and actual_mileage le 200000;
run;
ods graphics on;
ods output fitplot=casuser._HexMap; /* write graph data to a data set */
proc surveyreg data=test plots(nbins=20 weight=heatmap)=fit(shape=hex);
model meses_efectivos = actual_mileage;
run;
ods select all;
data _hexmap;
set casuser._hexmap;
run;
/* ODS GRAPHICS ON / height=800 width=1400 reset=all border=off antialiasmax=2500 tipmax=2500 */
/* imagemap=on imagename='bees and miles'; */
/* ods html path="/caslibs/danalytics/" (url=none) */
/* body="bees miles.html" */
/* (title='bees fly miles'); */
ODS GRAPHICS ON / height=800 width=1400 reset=all;
proc sgplot data=_HexMap;
polygon x=XVar y=YVar ID=hID / colorresponse=WVar fill
colormodel=TWOColorRamp dataskin=sheen ;
run;
ods graphics off;
*==================================================================;
* Finalization;
*==================================================================;
cas mySession terminate;
* The return code to is sent back to the calling client (Data-Driven Content object) in JSON format;
proc json out=_webout nosastags nopretty nokeys;
write open object;
write values "success" true;
write values "retcode" 0;
write values "message" "success";
write close;
run;
That's it! And it even updates.
It works, I can't believe that it finally does what I had in mind.
With DDC you can leverage third-party visualizations, update tables, score data and show customized ods graphs.
When you add what already comes shipped as graph objects with Visual Analytics plus the possibilities of using graph builder then you end up having impressive visualization power.
1000 thanks to @Renato_sas and @XavierBizoux
Learn how use the CAT functions in SAS to join values from multiple variables into a single value.
Find more tutorials on the SAS Users YouTube channel.
-
4035 views
-
5 likes
-
-
