From 4eb17feb1e037a90f364763b018ec9b835a080d2 Mon Sep 17 00:00:00 2001 From: Damonamajor Date: Thu, 17 Oct 2024 16:09:58 +0000 Subject: [PATCH] Revert num_lanes --- .../spatial/spatial-environment-traffic.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/etl/scripts-ccao-data-warehouse-us-east-1/spatial/spatial-environment-traffic.R b/etl/scripts-ccao-data-warehouse-us-east-1/spatial/spatial-environment-traffic.R index 4a49f0383..bc5cc4fc4 100644 --- a/etl/scripts-ccao-data-warehouse-us-east-1/spatial/spatial-environment-traffic.R +++ b/etl/scripts-ccao-data-warehouse-us-east-1/spatial/spatial-environment-traffic.R @@ -171,7 +171,7 @@ walk(parquet_files, \(file_key) { mutate( daily_traffic = if_else(is.na(daily_traffic), average_daily_traffic, daily_traffic), speed_limit = if_else(is.na(speed_limit), average_speed_limit, speed_limit), - num_lanes = if_else(is.na(lanes), average_lanes, lanes) + lanes = if_else(is.na(lanes), average_lanes, lanes) ) return(shapefile_data) @@ -188,7 +188,7 @@ walk(parquet_files, \(file_key) { # Save current values to compare changes previous_traffic <- shapefile_data_final$daily_traffic previous_speed <- shapefile_data_final$speed_limit - previous_lanes <- shapefile_data_final$num_lanes + previous_lanes <- shapefile_data_final$lanes # Recalculate averages and update shapefile data shapefile_data_final <- calculate_traffic_averages(shapefile_data_final)