This function takes messy column names and returns clean ones that work well with
R by default. Names that are all lower case with no R-unfriendly characters
such as spaces and - are returned.
Examples
# \donttest{
if(curl::has_internet()) {
crashes_raw = read_collisions(year = 2022)
column_names = names(crashes_raw)
column_names
format_column_names(column_names = column_names)
}
#> Reading in:
#> /tmp/RtmpLfwMHr/dft-road-casualty-statistics-collision-2022.csv
#> date and time columns present, creating formatted datetime column
#> [1] "collision_index"
#> [2] "collision_year"
#> [3] "collision_ref_no"
#> [4] "location_easting_osgr"
#> [5] "location_northing_osgr"
#> [6] "longitude"
#> [7] "latitude"
#> [8] "police_force"
#> [9] "collision_severity"
#> [10] "number_of_vehicles"
#> [11] "number_of_casualties"
#> [12] "date"
#> [13] "day_of_week"
#> [14] "time"
#> [15] "local_authority_district"
#> [16] "local_authority_ons_district"
#> [17] "local_authority_highway"
#> [18] "local_authority_highway_current"
#> [19] "first_road_class"
#> [20] "first_road_number"
#> [21] "road_type"
#> [22] "speed_limit"
#> [23] "junction_detail_historic"
#> [24] "junction_detail"
#> [25] "junction_control"
#> [26] "second_road_class"
#> [27] "second_road_number"
#> [28] "pedestrian_crossing_human_control_historic"
#> [29] "pedestrian_crossing_physical_facilities_historic"
#> [30] "pedestrian_crossing"
#> [31] "light_conditions"
#> [32] "weather_conditions"
#> [33] "road_surface_conditions"
#> [34] "special_conditions_at_site"
#> [35] "carriageway_hazards_historic"
#> [36] "carriageway_hazards"
#> [37] "urban_or_rural_area"
#> [38] "did_police_officer_attend_scene_of_accident"
#> [39] "trunk_road_flag"
#> [40] "lsoa_of_accident_location"
#> [41] "enhanced_severity_collision"
#> [42] "collision_injury_based"
#> [43] "collision_adjusted_severity_serious"
#> [44] "collision_adjusted_severity_slight"
#> [45] "datetime"
# }