fork download
copy 
  1. # your code goes here
  2.  
  3. setwd("C:/RData/")
  4.  
  5. install.packages("rjson")
  6. library(rjson)
  7. json_file <- "roam_prescription_based_prediction.jsonl"
  8.  
  9.  
  10. data = '{
  11. "provider_variables": {
  12.     "settlement_type": "non-urban",
  13.     "generic_rx_count": 2287,
  14.     "specialty": "Nephrology",
  15.     "years_practicing": 7,
  16.     "gender": "M",
  17.     "region": "South",
  18.     "brand_name_rx_count": 384
  19. },
  20.  "npi": "1295763035",
  21. "cms_prescription_counts": { 
  22.   "DOXAZOSIN MESYLATE": 26,
  23.   "MIDODRINE HCL": 12,
  24.   "MEGESTROL ACETATE": 11,
  25.   "BENAZEPRIL HCL": 11,
  26.   "METOLAZONE": 73,
  27.   "NOVOLOG": 12,
  28.   "DIAZEPAM": 24,
  29.   "HYDRALAZINE HCL": 50,
  30.   "SENSIPAR": 94,
  31.   "LABETALOL HCL": 28,
  32.   "PREDNISONE": 40,
  33.   "CALCITRIOL": 79,
  34.   "HYDROCODONE-ACETAMINOPHEN": 64,
  35.   "HYDROCHLOROTHIAZIDE": 59,
  36.   "LOSARTAN-HYDROCHLOROTHIAZIDE": 14,
  37.   "FENOFIBRATE": 14,
  38.   "MINOXIDIL": 14,
  39.   "MELOXICAM": 29,
  40.   "ATENOLOL": 62,
  41.   "CARISOPRODOL": 40,
  42.   "GABAPENTIN": 35,
  43.   "OMEPRAZOLE": 35,
  44.   "KLOR-CON M10": 20,
  45.   "LANTUS": 20,
  46.   "AMLODIPINE BESYLATE": 175,
  47.   "CARVEDILOL": 36,
  48.   "LOSARTAN POTASSIUM": 41,
  49.   "IRBESARTAN": 11,
  50.   "NIFEDICAL XL": 32,
  51.   "NIFEDIPINE ER": 51,
  52.   "LEVOTHYROXINE SODIUM": 12,
  53.   "POTASSIUM CHLORIDE": 30,
  54.   "FUROSEMIDE": 162,
  55.   "GLYBURIDE": 16,
  56.   "CLONIDINE HCL": 43,
  57.   "TEMAZEPAM": 41,
  58.   "SPIRONOLACTONE": 50,
  59.   "LOVASTATIN": 11,
  60.   "LISINOPRIL": 44,
  61.   "PANTOPRAZOLE SODIUM": 13,
  62.   "CALCIUM ACETATE": 85,
  63.   "NEXIUM": 44,
  64.   "ZOLPIDEM TARTRATE": 41,
  65.   "DIOVAN": 20,
  66.   "OXYCODONE HCL": 51,
  67.   "METOPROLOL SUCCINATE": 104,
  68.   "RANITIDINE HCL": 21,
  69.   "ATORVASTATIN CALCIUM": 19,
  70.   "TAMSULOSIN HCL": 14,
  71.   "OXYBUTYNIN CHLORIDE": 11,
  72.   "LISINOPRIL-HYDROCHLOROTHIAZIDE": 19,
  73.   "METOPROLOL TARTRATE": 93,
  74.   "AMLODIPINE BESYLATE-BENAZEPRIL": 12,
  75.   "BUMETANIDE": 53,
  76.   "BYSTOLIC": 14,
  77.   "ISOSORBIDE MONONITRATE ER": 13,
  78.   "ALLOPURINOL": 86,
  79.   "CLOPIDOGREL": 22,
  80.   "RENVELA": 117,
  81.   "ABILIFY": 11,
  82.   "SERTRALINE HCL": 14,
  83.   "CIPROFLOXACIN HCL": 19,
  84.   "SIMVASTATIN": 14,
  85.   "PRAVASTATIN SODIUM": 13,
  86.   "ATENOLOL-CHLORTHALIDONE": 53,
  87.   "ALPRAZOLAM": 45,
  88.   "AZITHROMYCIN": 18,
  89.   "TRAMADOL HCL": 11
  90. }
  91. }'
  92.  
  93. person <- fromJSON(data)
  94.  
  95.  
  96. Forjson<-function(x=json_file) {
  97.   x[sapply(x, is.null)] <- NA
  98.   unlist(x)
  99. }
  100.  
  101.  
  102. CleanData<-do.call("rbind", person)
  103. head(CleanData)
Success #stdin #stdout #stderr 0.23s 60752KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error in setwd("C:/RData/") : cannot change working directory
Execution halted
https://ideone.com/PL9XJq
language:
R (R 3.5.2)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!