library(RJDBC)
library(readr)

options(java.parameters = "-Xmx4g")

conn <- dbConnect(JDBC("net.ucanaccess.jdbc.UcanloadDriver",
                       "/Users/robsalasco/Documents/Dev/chilean_od_data/UCanAccess-4.0.4-bin/loader/ucanload.jar"),
                       "jdbc:ucanaccess:https:///Users/robsalasco/Documents/Dev/chilean_od_data/base_datos_eodStgo_2012.accdb")

dbListTables(conn)

t <- dbSendQuery(conn, "SELECT * FROM Viaje")
t <- dbFetch(t)

write_csv(t, "table_Viajes.csv")