tqk 
Installation
# CRAN version NOT YET!!!
install.packages("tqk")
# Dev version
install.packages("tqk", repos = "https://mrchypark.r-universe.dev")How to use
library(tqk)
code <- code_get()
code## # A tibble: 2,630 × 6
## market name code name_full name_eng code_full
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 KOSDAQ 마이크로컨텍솔 098120 (주)마이크로컨텍솔루션 Micro Contact … KR709812…
## 2 KOSDAQ 스카이이앤엠 131100 (주)스카이이앤엠 SKY E&M Co., L… KR713110…
## 3 KOSDAQ 포스코엠텍 009520 (주)포스코엠텍 POSCO M-TECH C… KR700952…
## 4 KOSPI AJ네트웍스 095570 AJ네트웍스보통주 AJ Networks Co… KR709557…
## 5 KOSPI AK홀딩스 006840 AK홀딩스보통주 AK Holdings, I… KR700684…
## 6 KOSPI BGF리테일 282330 BGF리테일보통주 BGF Retail KR728233…
## 7 KOSPI BGF 027410 BGF보통주 BGF KR702741…
## 8 KOSPI BNK금융지주 138930 BNK금융지주보통주 BNK Financial … KR713893…
## 9 KOSPI BYC우 001465 BYC1우선주 BYC(1P) KR700146…
## 10 KOSPI BYC 001460 BYC보통주 BYC KR700146…
## # … with 2,620 more rows
sscode <- code[grep("^삼성전자$", code$name),3]
sscode## # A tibble: 1 × 1
## code
## <chr>
## 1 005930
samsung <- tqk_get(sscode, from = "2018-05-01")
samsung## # A tibble: 1,026 × 7
## date open high low close volume adjusted
## <date> <dbl> <dbl> <dbl> <dbl> <int> <dbl>
## 1 2018-05-02 2650000 2650000 2650000 2650000 0 53000
## 2 2018-05-03 2650000 2650000 2650000 2650000 0 53000
## 3 2018-05-04 53000 53900 51800 51900 39565391 51900
## 4 2018-05-08 52600 53200 51900 52600 23104720 52600
## 5 2018-05-09 52600 52800 50900 50900 16128305 50900
## 6 2018-05-10 51700 51700 50600 51600 13905263 51600
## 7 2018-05-11 52000 52200 51200 51300 10314997 51300
## 8 2018-05-14 51000 51100 49900 50100 14909272 50100
## 9 2018-05-15 50200 50400 49100 49200 18709146 49200
## 10 2018-05-16 49200 50200 49150 49850 15918683 49850
## # … with 1,016 more rows
library(tqk)
library(dplyr)##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
code_get() %>%
filter(grepl("^삼성전자$", name)) %>%
select(code) %>%
tqk_get(from = "2018-05-01") -> ss
ss## # A tibble: 1,026 × 7
## date open high low close volume adjusted
## <date> <dbl> <dbl> <dbl> <dbl> <int> <dbl>
## 1 2018-05-02 2650000 2650000 2650000 2650000 0 53000
## 2 2018-05-03 2650000 2650000 2650000 2650000 0 53000
## 3 2018-05-04 53000 53900 51800 51900 39565391 51900
## 4 2018-05-08 52600 53200 51900 52600 23104720 52600
## 5 2018-05-09 52600 52800 50900 50900 16128305 50900
## 6 2018-05-10 51700 51700 50600 51600 13905263 51600
## 7 2018-05-11 52000 52200 51200 51300 10314997 51300
## 8 2018-05-14 51000 51100 49900 50100 14909272 50100
## 9 2018-05-15 50200 50400 49100 49200 18709146 49200
## 10 2018-05-16 49200 50200 49150 49850 15918683 49850
## # … with 1,016 more rows