Fixed a KuCoin Bug

The KuCoin data is loaded differently than expected in the order of Close, Open, High and Low
serkor1 · Oct 13, 2023 · 7c21822 · 7c21822
1 parent af935b6
commit 7c21822
Show file tree

Hide file tree

Showing 4 changed files with 31 additions and 8 deletions.
diff --git a/R/api_kucoin.R b/R/api_kucoin.R
@@ -422,13 +422,27 @@ kucoinQuote <- function(
 
   # 3.1) set column
   # names
-  column_names <- c(
-    'Open',
-    'High',
-    'Low',
-    'Close',
-    'Volume'
-  )
+  if (futures) {
+
+    column_names <- c(
+      'Open',
+      'High',
+      'Low',
+      'Close',
+      'Volume'
+    )
+
+  } else {
+
+    column_names <- c(
+      'Open',
+      'Close',
+      'High',
+      'Low',
+      'Volume'
+    )
+
+  }
 
   # 3.2) format
   # dates

diff --git a/R/availableTickers.R b/R/availableTickers.R
@@ -21,12 +21,14 @@ availableTickers <- function(
     ) {
 
 
-  ticker <- get(
+  ticker <- sort(
+    get(
     paste0(
       source,
       'Tickers'
     )
   )(futures = futures)
+  )
 
   return(
     ticker

diff --git a/R/helper.R b/R/helper.R
@@ -160,6 +160,13 @@ generate_data <- function(exchanges = c('binance', 'kucoin')) {
 
 }
 
+# internalTest <- generate_data()
+# usethis::use_data(
+#   internalTest,
+#   internal = TRUE,
+#   overwrite = TRUE
+#
+# )
 
 
 convertIndicator <- function(indicator) {

diff --git a/R/sysdata.rda b/R/sysdata.rda