R/add_walk_trips.R

In danielgils/cobeneficioswwf: Evaluación de Cobeneficios WWF

#' Add pedestrian trips to trip set
#'
#' Create data frame of walk-to-PT trips from PT trips and walk-to-bus time
#'
#' @param pt_trips data frame of PT trips
#'
#' @return list of data frames of PT trips and walk-to-PT trips
#'
#' @export
add_walk_trips <- function(pt_trips){

  # pt_trips
  # ln_mean = 5
  # ln_sd = 1.2

  #pt_trips <- arrange(pt_trips, trip_duration)
  walk_trips <- pt_trips
  walk_trips$stage_mode <- 'walk_to_pt'
  ##RJ all trips have the same BUS_WALK_TIME
  walk_trips$stage_duration <- BUS_WALK_TIME

  # Replace walk trips with duration greater than that of bus needs to be set to 0
  if (any(walk_trips$stage_duration - pt_trips$stage_duration  >= 0))
    walk_trips$stage_duration[(walk_trips$stage_duration - pt_trips$stage_duration) >= 0] <- 0

  # Corrrect walk trips distance
  walk_trips$stage_distance <- (walk_trips$stage_duration / 60) * VEHICLE_INVENTORY$speed[VEHICLE_INVENTORY$stage_mode == 'pedestrian']
  pt_trips$stage_distance <- pt_trips$trip_distance - walk_trips$stage_distance

  # Recategorise trip_distance_cat for both bus and walk trips
  pt_trips$trip_distance_cat[pt_trips$trip_distance > 0 &
                               pt_trips$trip_distance < DIST_LOWER_BOUNDS[2]] <- DIST_CAT[1]
  pt_trips$trip_distance_cat[pt_trips$trip_distance >= DIST_LOWER_BOUNDS[2] &
                               pt_trips$trip_distance < DIST_LOWER_BOUNDS[3]] <- DIST_CAT[2]
  pt_trips$trip_distance_cat[pt_trips$trip_distance >= DIST_LOWER_BOUNDS[3]] <- DIST_CAT[3]

  walk_trips$trip_distance_cat[walk_trips$trip_distance > 0 &
                                 walk_trips$trip_distance < DIST_LOWER_BOUNDS[2]] <- DIST_CAT[1]
  walk_trips$trip_distance_cat[walk_trips$trip_distance >= DIST_LOWER_BOUNDS[2] &
                                 walk_trips$trip_distance < DIST_LOWER_BOUNDS[3]] <- DIST_CAT[2]
  walk_trips$trip_distance_cat[walk_trips$trip_distance >= DIST_LOWER_BOUNDS[3]] <- DIST_CAT[3]

  return(list(pt_trips, walk_trips))

}