Use new max_dist functionality from latest version of od to speed-up si_to_od()

[Robinlovelace]

Relevant bit of code can be made more concise and way faster:

simodels/R/si_to_od.R

Lines 48 to 59 in 70ab502

	if(identical(origins, destinations)) {
	od_df = od::points_to_od(origins)
	} else {
	od_df = od::points_to_od(origins, destinations)
	}
	od_df$distance_euclidean = geodist::geodist(
	x = od_df[c("ox", "oy")],
	y = od_df[c("dx", "dy")],
	paired = TRUE
	)
	# Max dist check
	if(max(od_df$distance_euclidean) > max_dist) {

Relevant issue in {od} package: itsleeds/od#18

Want to give this a go @mem48? Basically a one-liner I think.