mozilla.R

library(DBI)
library(RSQLite)

con <- dbConnect(SQLite(), "places.sqlite")

alltables = dbListTables(con)

hosts = dbGetQuery( con,'select * from moz_hosts order by frecency desc' )

places = dbGetQuery( con,'select * from moz_places order by visit_count desc' )

visits = dbGetQuery(con, 'select datetime(last_visit_date/1000000,\'unixepoch\',\'localtime\') as last_visit,
                                 v.id as visit_id, p.id as place_id, v.from_visit, v.visit_type, p.url,
                                 p.title from moz_historyvisits v left join moz_places p on v.place_id = p.id
                                 where p.visit_count > 0')