diff --git a/R/create_streetlight_analysis.R b/R/create_streetlight_analysis.R index f7b6120..0497fb4 100644 --- a/R/create_streetlight_analysis.R +++ b/R/create_streetlight_analysis.R @@ -294,7 +294,9 @@ create_streetlight_analysis <- function( zone_list ) - if ((travel_mode_type == "All_Vehicles_CVD_Plus" | + if ( + (travel_mode_type %in% c("All_Vehicles_CVD_Plus", + "Truck") | !analysis_type %in% c( "Zone_Activity_Analysis", "OD_Analysis",