catch one

shikokuchuo · Aug 24, 2023 · b3c7e28 · b3c7e28
1 parent bfbb470
commit b3c7e28
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/oanda.R b/R/oanda.R
@@ -200,7 +200,7 @@ getPrices <- function(instrument, granularity, count = NULL, from = NULL,
          deserialize_json(resp[["data"]]), call. = FALSE)
   timestamp <- as.POSIXct.POSIXlt(strptime(resp[["headers"]][["date"]],
                                            format = "%a, %d %b %Y %H:%M:%S", tz = "UTC"))
-  candles <- deserialize_json(resp[["raw"]], query = "/candles")
+  candles <- deserialize_json(resp[["data"]], query = "/candles")
   ptype <- switch(price, M = "mid", B = "bid", A = "ask")
 
   !missing(.validate) && .validate == FALSE && {