#Extract Products from ArangoDB
extractProducts <- function(urlCursor){
  queryProductAQL <- "for p in Product return p"
  result <- POST(url = urlCursor, body = paste('{"query":"', queryProductAQL, '", "count":true}'), authenticate(user = myuser, password = mypass))
  resulta <- content(result, "parsed", "application/json")
  n <- resulta[1]
  s <- n$result
  productsDF <- data.frame(id=integer(), type=character(), numberOfShares=integer(), rev=integer(), stringsAsFactors=FALSE)

  #Extracts all the node names and place on a single list
  for(x in 1:length(s)){
    id <- s[x][[1]]$'_id'
    rev <- s[x][[1]]$'_rev'
    type <- if(is.character(s[x][[1]]$'type')) s[x][[1]]$'type' else 'Not Specified'
    numberOfShares <- if(is.integer(s[x][[1]]$'numberOfShares')) s[x][[1]]$'numberOfShares' else 0
    productsDF[nrow(productsDF) + 1, ] <- c(id, type, numberOfShares, rev)
  }
  productsDF$group <- productsDF$type
  productsDF
}