Version of Seurat's Read10X function for 10X cellranger 3 data

read10x

read10x <- function(dir) {
    names <- c("barcodes.tsv", "features.tsv", "matrix.mtx")
    for (i in 1:length(names)) {
        R.utils::gunzip(paste0(dir, "/", names[i], ".gz"))
    }
    file.copy(paste0(dir, "/features.tsv"), paste0(dir, "/genes.tsv"))
    mat <- Seurat::Read10X(dir)
    file.remove(paste0(dir, "/genes.tsv"))
    for (i in 1:length(names)) {
        R.utils::gzip(paste0(dir, "/", names[i]))
    }
    mat
}