diff --git a/R/api_kucoin.R b/R/api_kucoin.R index 5770d647..df1fb71e 100644 --- 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 index 2648fe79..6dfcaffc 100644 --- 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 index 510da1f6..f4c7d5ea 100644 --- 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 index 15ed603c..c305ce11 100644 Binary files a/R/sysdata.rda and b/R/sysdata.rda differ