fpath <- system.file("extdata", "fragments.tsv.gz", package="Signac")
tmpf <- tempfile(fileext = ".gz")
FilterCells(
fragments = fpath,
cells = head(colnames(atac_small)),
outfile = tmpf
)
file.remove(tmpf)
Run the code above in your browser using DataLab