nathan_csv_reader_issue000.R

fpath <- file.path("data", "WIOT2000_Nov16_ROW 1.csv", fsep = .Platform$file.sep)
fpath

#install all required packages
for (package in c("data.table")) {
    if (!require(package, character.only=T, quietly=T)) {
        install.packages(package, repos="http://cran.us.r-project.org")
        library(package, character.only=T)
    }
}

system.time(
    dt <- fread(fpath,
            header = FALSE,
            sep = ",",
            dec = ".")
    )

dim(dt)

dt

dt[7,10]