R/GetMarketTime.R

In ryanwalton57/allyr: Provides functions to interact with the Ally Invest API.

#' @title GetMarketTime
#' @description Returns the current market time.
#' @export
#' @return A tibble containing the symbol, with last, bid, and ask prices.
#' @import tibble
#' @import xml2
#' @import httr
#' @examples
#' \dontrun{
#' GetMarketTime()
#' }
#'

GetMarketTime <- function(){

  time <- GET("https://api.tradeking.com/v1/market/clock.xml")

  if (time$status_code != 200) {
    stop("The API is down for maintenance. Please try again later.")
  }

  x <- read_xml(time)
  message <- xml_text(xml_find_all(x, ".//message"))
  df <- tibble("Date/Time" = time$date, "Status" = message)

  return(df)
}