Alpha Vantage

https://www.alphavantage.co/

library(tidyverse)
library(tidyquant)
library(alphavantager)
library(tradingview)
# file.edit("~/.Renviron")
av_api_key(Sys.getenv("ALPHAVANTAGE_API_KEY"))

data <- av_get(symbol = "VGK", av_fun = "TIME_SERIES_DAILY", outputsize = "full")
data <- data %>% 
  tq_mutate(select = close, col_rename = "sma14", mutate_fun = SMA, n = 14) %>%
  tq_mutate(select = close, col_rename = "sma7", mutate_fun = SMA, n = 7) %>%
  mutate(time = timestamp)
data

tradingview(data, height = 500) %>%
  tv_chart(decimals = 2) %>%
  tv_line(value = "sma7", color = "rgba(255, 0, 0, 0.4)") %>%
  tv_line(value = "sma14", color = "rgba(255, 0, 0, 0.5)") %>%
  tv_candles()