Auto-detect file format in read.table

read_table.r

read.table = function (file, ..., text) {
    args = list(...)
    if (missing(file))
        return(do.call(utils::read.table, c(args, text = text)))

    if (! ('sep' %in% names(args))) {
        separators = list('.csv' = ',',
                          '.tsv' = '\t',
                          '.txt' = '\t')
        extension = stringr::str_match(file, '(\\.\\w+)$')[, 2]
        args$sep = separators[[extension]]
    }

    args$file = file
    do.call(utils::read.table, args)
}