AB
Size: a a a
AB
PU
AB
PU
> sapply(xlsx_data[, 'item_code'], function(x) sprintf("%010d", x))
item_code
[1,] "0020000559"
[2,] "0020000779"
[3,] "0000013117"
[4,] "0040000289"
[5,] "0040000274"
[6,] "0010000581"
[7,] "0020000458"
PU
Ю
PU
A
AB
A
`read_xlsx`
прочитает их как characterPU
PU
> xlsx_data <- read_xlsx('./data/xls_example.xlsx',
+ col_types = c('text', 'text', rep('numeric', 3)))
> xlsx_data
# A tibble: 7 x 5
company item_code barcode amount price
<chr> <chr> <dbl> <dbl> <dbl>
1 xxx 20000559 4601026307584 3 480.
2 xxx 20000779 4603182002259 4 27.0
3 xxx 13117 4607072020156 2 354.
4 yyy 40000289 3574661287522 6 208.
5 yyy 40000274 3574661287539 2 175.
6 zzz 10000581 4602196002682 1 537.
7 zzz 20000458 4601026308567 9 371.
PU
A
PU
PU
library(XLConnect)
> readWorksheetFromFile('./data/xls_example.xlsx', "Sheet1", colTypes = c(rep('character', 2), rep('numeric', 3)))
company item_code barcode. amount price
1 xxx 0020000559 4601026307584 3 480.26
2 xxx 0020000779 4603182002259 4 26.95
3 xxx 0000013117 4607072020156 2 353.76
4 yyy 0040000289 3574661287522 6 207.55
5 yyy 0040000274 3574661287539 2 174.81
6 zzz 0010000581 4602196002682 1 537.46
7 zzz 0020000458 4601026308567 9 370.70
PU
Ю
PU
Ю