[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sas-l
Subject:    Re: SAS Forum: Parsing json data ( IML/R or WPS/PROC-R)
From:       Roger DeAngelis <rogerjdeangelis () GMAIL ! COM>
Date:       2017-09-30 13:54:48
Message-ID: 5570782566661689.WA.rogerjdeangelisgmail.com () listserv ! uga ! edu
[Download RAW message or body]

* correction;

  There can be a varying number of elements per groups so
  I set the group number using

  if index(v1,'company_number')>0 then grp=grp+1;

  also mad that datastep a view.

%utl_submit_wps64(resolve('
options set=R_HOME "C:/Program Files/R/R-3.4.0";
libname wrk "%sysfunc(pathname(work))";
proc r;
submit;
library("rjson");
jsn <- as.data.frame(fromJSON(paste(readLines("d:/json/psc5.json"), collapse="")));
jsnxpo<-cbind(names(jsn),t(jsn));
endsubmit;
import r=jsnxpo data=wrk.simpler;
run;quit;
'));


data addgrp/view=addgrp;;
   retain grp 0;
   set simpler;
   if index(v1,'company_number')>0 then grp=grp+1;
   v1=compress(v1,'.','dd');
run;quit;

proc transpose data=addgrp out=want(drop=grp _name_);
by grp;
var v2;
id v1;
run;quit;

* optimize variable lengths;
%utl_optlen(inp=want,out=want)
[prev in list] [next in list] [prev in thread] [next in thread]