In [14]:

    

# Using the library
library("RSQLite")
sqlite <- dbDriver("SQLite")
fdb <- "fsql/mydb.db"
db <- dbConnect(sqlite, fdb)


    

In [17]:

    

# Results
tables <- dbListTables(db)
results <- dbSendQuery(db, paste("SELECT * FROM ", tables))
data <- fetch(results,10)


    

    




Warning message:
In sqliteSendQuery(con, statement, bind.data): Closing result set with pending rows

In [18]:

    

data


    

    
Out[18]:





id
Chr
Start
End

	
1
1
chr1
10385471
10385471
	
2
2
chr1
17722363
17722363
	
3
3
chr1
45796269
45796269
	
4
4
chr1
45798555
45798555
	
5
5
chr1
121280613
121280613
	
6
6
chr1
150860471
150860471
	
7
7
chr1
161332092
161332092
	
8
8
chr1
193094375
193094375
	
9
9
chr1
193107187
193107187
	
10
10
chr1
222045446
222045446

In [ ]:

    

*