# your code goes here

setwd("C:/RData/")

install.packages("rjson")
library(rjson)
json_file <- "roam_prescription_based_prediction.jsonl"


data = '{
"provider_variables": {
    "settlement_type": "non-urban",
    "generic_rx_count": 2287,
    "specialty": "Nephrology",
    "years_practicing": 7,
    "gender": "M",
    "region": "South",
    "brand_name_rx_count": 384
},
 "npi": "1295763035",
"cms_prescription_counts": { 
  "DOXAZOSIN MESYLATE": 26,
  "MIDODRINE HCL": 12,
  "MEGESTROL ACETATE": 11,
  "BENAZEPRIL HCL": 11,
  "METOLAZONE": 73,
  "NOVOLOG": 12,
  "DIAZEPAM": 24,
  "HYDRALAZINE HCL": 50,
  "SENSIPAR": 94,
  "LABETALOL HCL": 28,
  "PREDNISONE": 40,
  "CALCITRIOL": 79,
  "HYDROCODONE-ACETAMINOPHEN": 64,
  "HYDROCHLOROTHIAZIDE": 59,
  "LOSARTAN-HYDROCHLOROTHIAZIDE": 14,
  "FENOFIBRATE": 14,
  "MINOXIDIL": 14,
  "MELOXICAM": 29,
  "ATENOLOL": 62,
  "CARISOPRODOL": 40,
  "GABAPENTIN": 35,
  "OMEPRAZOLE": 35,
  "KLOR-CON M10": 20,
  "LANTUS": 20,
  "AMLODIPINE BESYLATE": 175,
  "CARVEDILOL": 36,
  "LOSARTAN POTASSIUM": 41,
  "IRBESARTAN": 11,
  "NIFEDICAL XL": 32,
  "NIFEDIPINE ER": 51,
  "LEVOTHYROXINE SODIUM": 12,
  "POTASSIUM CHLORIDE": 30,
  "FUROSEMIDE": 162,
  "GLYBURIDE": 16,
  "CLONIDINE HCL": 43,
  "TEMAZEPAM": 41,
  "SPIRONOLACTONE": 50,
  "LOVASTATIN": 11,
  "LISINOPRIL": 44,
  "PANTOPRAZOLE SODIUM": 13,
  "CALCIUM ACETATE": 85,
  "NEXIUM": 44,
  "ZOLPIDEM TARTRATE": 41,
  "DIOVAN": 20,
  "OXYCODONE HCL": 51,
  "METOPROLOL SUCCINATE": 104,
  "RANITIDINE HCL": 21,
  "ATORVASTATIN CALCIUM": 19,
  "TAMSULOSIN HCL": 14,
  "OXYBUTYNIN CHLORIDE": 11,
  "LISINOPRIL-HYDROCHLOROTHIAZIDE": 19,
  "METOPROLOL TARTRATE": 93,
  "AMLODIPINE BESYLATE-BENAZEPRIL": 12,
  "BUMETANIDE": 53,
  "BYSTOLIC": 14,
  "ISOSORBIDE MONONITRATE ER": 13,
  "ALLOPURINOL": 86,
  "CLOPIDOGREL": 22,
  "RENVELA": 117,
  "ABILIFY": 11,
  "SERTRALINE HCL": 14,
  "CIPROFLOXACIN HCL": 19,
  "SIMVASTATIN": 14,
  "PRAVASTATIN SODIUM": 13,
  "ATENOLOL-CHLORTHALIDONE": 53,
  "ALPRAZOLAM": 45,
  "AZITHROMYCIN": 18,
  "TRAMADOL HCL": 11
}
}'
 
person <- fromJSON(data)


Forjson<-function(x=json_file) {
  x[sapply(x, is.null)] <- NA
  unlist(x)
}


CleanData<-do.call("rbind", person)
head(CleanData)