R/public_time.R

In JARVIS001011/account: Wrapper for 'GDAX' Cryptocurrency Exchange

#' Get GDAX API Server Time
#'
#' @name public_time
#'
#' @description Gets the server time from GDAX for reference purposes. This function does not take any arguments.
#'
#' @return  Dataframe with time in ISO and the epoch field represents decimal seconds since Unix Epoch.
#'
#' @examples
#' \dontrun{
#' public_time()
#' }
#'
#' @export


public_time <- function() {

  #get url extension----
  req.url <- "/time"

  #fetch response----
  content <- parse_response(path = req.url)

  #transform----
  content <- as.data.frame(content)
  content$iso <- strptime(content$iso, "%Y-%m-%dT%H:%M:%OS")

  #return----
  return(content)
}