library(osrm)

df <- read.table("df.txt", header=TRUE, sep='t', encoding = "UTF-8")

options(osrm.server = "http:")
travelTime<-osrmTable(loc=df[1:5570, c("cod_mun_7", "lon_orig", "lat_orig")]) 


route <- osrmRoute(src = df[1:5570, c("lon_orig", "lat_orig")],
                   dst = df[1:5570, c("lon_dest", "lat_dest")],
                   osrm.server = "http:/",
                   osrm.profile = "car")

write.table(travelTime, "matrix.txt", sep = "t", dec = ".")

dist <- read.table("matrix.txt", sep='t', encoding = "UTF-8", header=TRUE)

dist <- setNames(melt(dist), c('rows', 'vars', 'values'))