R/read.R

In MilesMcBain/r2vr: Compose and Serve WebVR Scenes

#' Get data from database with API GET request
#'
#' @param url url to API end point
#'
#' @return
#' 
#' @examples 
#' \donttest{
#' data.df <- read("https://test-api-koala.herokuapp.com/koala")
#' }
#' @export
read <- function(url){
  # Deserialize the payload so data can be read and converted from JSON to data frame
  data.df <<- jsonlite::fromJSON(httr::content(httr::GET(url), "text"), flatten = TRUE)
  
  return(data.df)
  
}