ries9112

Riccardo Esclapon

ries9112 / 3d_ride.R

Created January 2, 2020 18:48 — forked from slopp/3d_ride.R

Code to make pretty bike ride plots with rayshader and rStrava

	source("helpers.R")

	plot_3d_route_area <- function(stream, zscale = 15){

	# create bounding box for the ride
	ui("1 of 5: Locating Route...")
	bbox <- list(
	p1 = list(long = min(stream$lng), lat = min(stream$lat)),
	p2 = list(long = max(stream$lng), lat = max(stream$lat))
	)