#library(knitr)
knit("4. Json.Rmd")
## 
## 
## processing file: 4. Json.Rmd
## 
  |                                                                                                                         
  |                                                                                                                   |   0%
  |                                                                                                                         
  |.........                                                                                                          |   8%                   
  |                                                                                                                         
  |..................                                                                                                 |  15% (unnamed-chunk-10)
  |                                                                                                                         
  |...........................                                                                                        |  23%                   
  |                                                                                                                         
  |...................................                                                                                |  31% (unnamed-chunk-11)
  |                                                                                                                         
  |............................................                                                                       |  38%                   
  |                                                                                                                         
  |.....................................................                                                              |  46% (unnamed-chunk-12)
  |                                                                                                                         
  |..............................................................                                                     |  54%                   
  |                                                                                                                         
  |.......................................................................                                            |  62% (unnamed-chunk-13)
  |                                                                                                                         
  |................................................................................                                   |  69%                   
  |                                                                                                                         
  |........................................................................................                           |  77% (unnamed-chunk-14)
  |                                                                                                                         
  |.................................................................................................                  |  85%                   
  |                                                                                                                         
  |..........................................................................................................         |  92% (unnamed-chunk-15)
  |                                                                                                                         
  |...................................................................................................................| 100%                   
## output file: 4. Json.md
## [1] "4. Json.md"
#Load the package required to read JSON files.

#install.packages("rjson")
library(rjson)
json_file <- fromJSON(file = "file.json")
print(json_file)
## $id
## [1] "1" "2" "3" "4" "5" "6" "7" "8"
## 
## $name
## [1] "Rick"     "Dan"      "Michelle" "Ryan"     "Gary"     "Nina"     "Simon"    "Guru"    
## 
## $salary
## [1] "623.3"  "515.2"  "611"    "729"    "843.25" "578"    "632.8"  "722.5" 
## 
## $start_date
## [1] "1/1/2012"   "9/23/2013"  "11/15/2014" "5/11/2014"  "3/27/2015"  "5/21/2013"  "7/30/2013"  "6/17/2014" 
## 
## $departments
## [1] "IT"         "Operations" "IT"         "HR"         "Finance"    "IT"         "Operations" "Finance"
#Convert JSON to a Data Frame

df_json <- as.data.frame(json_file)
summary(df_json)
##       id                name              salary           start_date        departments       
##  Length:8           Length:8           Length:8           Length:8           Length:8          
##  Class :character   Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character   Mode  :character
print(df_json)