single_data <- getData('VCB', 100)
#> [1] "code:VCB"
head(single_data)
#> code date time floor type basicPrice ceilingPrice floorPrice open
#> 1 VCB 2023-10-17 15:10:02 HOSE STOCK 86.1 92.1 80.1 86.1
#> 2 VCB 2023-10-16 15:10:02 HOSE STOCK 86.6 92.6 80.6 85.6
#> 3 VCB 2023-10-13 15:10:02 HOSE STOCK 86.0 92.0 80.0 86.0
#> 4 VCB 2023-10-12 15:10:02 HOSE STOCK 86.5 92.5 80.5 86.9
#> 5 VCB 2023-10-11 15:10:02 HOSE STOCK 86.1 92.1 80.1 86.2
#> 6 VCB 2023-10-10 15:10:02 HOSE STOCK 84.6 90.5 78.7 84.6
#> high low close average adOpen adHigh adLow adClose adAverage nmVolume
#> 1 86.5 85.5 85.9 86.04 86.1 86.5 85.5 85.9 86.04 363400
#> 2 86.6 85.6 86.1 85.94 85.6 86.6 85.6 86.1 85.94 332300
#> 3 86.6 85.5 86.6 86.10 86.0 86.6 85.5 86.6 86.10 663100
#> 4 86.9 85.5 86.0 86.05 86.9 86.9 85.5 86.0 86.05 714100
#> 5 86.5 85.7 86.5 86.05 86.2 86.5 85.7 86.5 86.05 719400
#> 6 86.2 84.6 86.1 85.92 84.6 86.2 84.6 86.1 85.92 734100
#> nmValue ptVolume ptValue change adChange pctChange
#> 1 31268360000 125000 10794940000 -0.2 -0.2 -0.2323
#> 2 28556290000 219000 19306500000 -0.5 -0.5 -0.5774
#> 3 57092200000 125000 10787500000 0.6 0.6 0.6977
#> 4 61445200000 168000 14723200000 -0.5 -0.5 -0.5780
#> 5 61906740000 96000 8691100000 0.4 0.4 0.4646
#> 6 63074320000 68000 6112400000 1.5 1.5 1.7730
- Get multiple timeseries with default
.size = 100
multiple_stocks_data <- getData(c('TCB','VCB','BVB'))
#> [1] "code:TCB"
#> [1] "code:VCB"
#> [1] "code:BVB"
table(multiple_stocks_data$ticker_name)
#> < table of extent 0 >
multiple_stocks_data <- getData(c('TCB','VCB','BVB'), .size = 500)
#> [1] "code:TCB"
#> [1] "code:VCB"
#> [1] "code:BVB"
table(multiple_stocks_data$ticker_name)
#> < table of extent 0 >