library(RJSONIO)
url <- "path/yelp_academic_dataset_business.json"
con = file(url, "r")
input <- readLines(con, -1L)
my_results <- lapply(X=input,fromJSON)
library(RJSONIO)
url <- "path/yelp_academic_dataset_business.json"
con = file(url, "r")
input <- readLines(con, -1L)
my_results <- lapply(X=input,fromJSON)