todays_previous_departures <- function(drilldown_obj) {
drilldown_obj$todays_trip_departures %>%
filter(departure_time < ymd_hms(Sys.time())) %>%
select(trip_id, route_id, direction_id, departure_time)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.