R/getMoveByUserId.R

In Minsu-Daniel-Kim/carpool_api:

if (!"rjson" %in% rownames(installed.packages())) {
  install.packages("rjson")
}

library(rjson)

endpointUrl = "http://ec2-54-183-174-139.us-west-1.compute.amazonaws.com/"

getMoveByUserId <- function(userId) {
  
  if (!is.null(userId)) {
    file_url = paste0(endpointUrl, userId)
    json_data <- fromJSON(file=file_url)
    json_data <- lapply(json_data, function(x) {
      x[sapply(x, is.null)] <- NA
      unlist(x)
    })
    do.call("rbind", json_data)
  } else {
    print("invalid argument.")
  }
}