In [2]:

    

library(data.table)


    

In [3]:

    

start_time <- Sys.time()

df <- read.table('/staging/as/andrewds/way_smaller.txt')
end_time <- Sys.time()

end_time - start_time


    

    






Time difference of 1.833857 mins

In [4]:

    

start_time <- Sys.time()

df <- fread('/staging/as/andrewds/way_smaller.txt')
end_time <- Sys.time()

end_time - start_time


    

    




Warning message in fread("/staging/as/andrewds/way_smaller.txt"):
“Detected 2711 column names but the data has 2712 columns (i.e. invalid file). Added 1 extra default column name for the first column which is guessed to be row names or an index. Use setnames() afterwards if this guess is not correct, or fix the file write command that created the file to create a valid file.”





    






Time difference of 0.4640157 secs

In [ ]: