diff --git a/R/merge_gtfs.R b/R/merge_gtfs.R index d63029c..fc9333c 100644 --- a/R/merge_gtfs.R +++ b/R/merge_gtfs.R @@ -158,7 +158,7 @@ merge_gtfs <- function(..., files = NULL, prefix = FALSE) { # field_value, from translations, doesn't end with _id but refers to an # id, thus should be changed. - id_cols <- names(dt)[(grepl("_id$", names(dt)))] + id_cols <- names(dt)[grepl("_id$|parent_station", names(dt))] id_cols <- setdiff(id_cols, "direction_id") if (!is.null(dt[["field_value"]])) id_cols <- c(id_cols, "field_value")