R/.gendata.R

In Ari1225/tqk: Get Financial data in korea with tidyquant package

library(tqk)
library(tidyr)

sam<-tqk_get("005930", to="2017-09-07")
hyun<-tqk_get("005380", to="2017-09-07")
amore<-tqk_get("090430", to="2017-09-07")
nhn<-tqk_get("035420", to="2017-09-07")
kakao<-tqk_get("035720", to="2017-09-07")

sam$symbol<-"SS"
hyun$symbol<-"HYD"
amore$symbol<-"AMP"
nhn$symbol<-"NVR"
kakao$symbol<-"KKO"

SHANK<-rbind(sam,hyun,amore,nhn,kakao)
SHANK <- SHANK %>% select(symbol, everything())
devtools::use_data(SHANK)