d3 candles experiment

source("prices.R")
source("chart-d3.R")
library(tidyquant)

prices <- api(instrument = "EUR/USD", period = "one_hour", limit = 1000)

data <- prices$data %>% 
  tq_mutate(select = "close", mutate_fun = EMA, n = 15, col_rename = "ema15") %>%
  tq_mutate(select = "close", mutate_fun = EMA, n = 30, col_rename = "ema30") %>%
  tq_mutate(select = "close", mutate_fun = EMA, n = 60, col_rename = "ema60")

data

data %>% 
  tail(n = 250) %>% 
  chart(script = "
        chart(svg).instance(data, { left: 10, right: 10, top: 10, bottom: 10 })
          .candles(0.5)
          .line('ema15', 'red', 0.6)
          .line('ema30', 'red', 0.7)
          .line('ema60', 'red', 0.8)
        ")

foo <- function(...) {
  return(as.list(match.call()))
}

foo.candles <- function() {
}

foo.line <- function() {
}

foo(price = foo.candles(), ema30 = foo.line())

[[1]]
foo

$price
foo.candles()

$ema30
foo.line()