Added get_quote filter on Kraken

Kraken doesnt support "to" parameters in spot.
serkor1 · Mar 9, 2024 · de9d3e9 · de9d3e9
1 parent 9bfb1a9
commit de9d3e9
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 3 deletions.
diff --git a/R/getQuote.R b/R/getQuote.R
@@ -157,9 +157,9 @@ getQuote <- function(
 
   }
 
-  # 3) fetch and format
-  # the quote and return
-  fetch(
+
+
+  ohlc <- fetch(
     ticker = ticker,
     source = source,
     futures= futures,
@@ -169,6 +169,19 @@ getQuote <- function(
     from   = from
   )
 
+  # Kraken doesnt have a to
+  # parameter on spot market
+  if (source == "kraken" & !futures) {
+
+    ohlc <- ohlc[paste(c(from, to), collapse = "/")]
+
+  }
+
+  attributes(ohlc)$source <- paste0(
+    to_title(source), if (futures) " (PERPETUALS)" else " (SPOT)"
+  )
+
+  ohlc
 
 }
 

diff --git a/R/get_quote.R b/R/get_quote.R
@@ -196,6 +196,14 @@ get_quote <- function(
     from   = from
   )
 
+  # Kraken doesnt have a to
+  # parameter on spot market
+  if (source == "kraken" & !futures) {
+
+    ohlc <- ohlc[paste(c(from, to), collapse = "/")]
+
+  }
+
   attributes(ohlc)$source <- paste0(
     to_title(source), if (futures) " (PERPETUALS)" else " (SPOT)"
   )