Fixes to data processing

francisbarton · Oct 12, 2023 · cc4eb05 · cc4eb05
1 parent 7a47015
commit cc4eb05
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/postcode_data_join_helpers.R b/R/postcode_data_join_helpers.R
@@ -49,13 +49,13 @@ bulk_reverse_geocode <- function(.data) {
 
 unnest_codes <- function(.data) {
   .data |>
-    dplyr::mutate(
-      codes_names = names(codes),
-      across("codes", unlist)) |>
+    dplyr::mutate(codes_names = names(codes)) |>
+    dplyr::mutate(across("codes", unlist)) |>
+    dplyr::rename(code = "codes") |>
     tidyr::pivot_wider(
-      names_from = codes_names,
+      names_from = "codes_names",
       names_glue = "{codes_names}_{.value}",
-      values_from = codes)
+      values_from = "code")
 }