子集列无法正常工作

Question

我正在运行以下代码：

library(data.table)
test <- fread("file location", colClasses = 'factor')
test <- test[1:100]
test[, c(1:5)]

我正在尝试查看前100个观察值和前5个列，但是当我运行第二个函数时输出为：

[1] 1 2 3 4 5