ries9112

## 3d_ride.R
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))
  )
	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))
	)