##
## Example :
##
faifile <- system.file("extdata", "ex.fasta", package = "WhopGenome")
faifh <- fai_open( faifile )
stopifnot( faifh != NULL )
result <- fai_query4( faifh , "1", 100 , 200 )
print( result )
fai_close( faifh )
fai_reopen( faifh )
result <- fai_query4( faifh , "1", 100 , 110 )
print( result )
Run the code above in your browser using DataLab