From fefc18cb6153d39731cec7b8583701f12dc02dee Mon Sep 17 00:00:00 2001 From: Malcolm Morgan Date: Thu, 31 Aug 2023 09:29:48 +0100 Subject: [PATCH] Reduce warnings --- R/atoc_export.R | 6 ++++-- R/nptdr_export.R | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/R/atoc_export.R b/R/atoc_export.R index 95c3f5d..dfdd8e2 100644 --- a/R/atoc_export.R +++ b/R/atoc_export.R @@ -101,11 +101,13 @@ station2transfers <- function(station, flf, path_out) { transfers3 <- transfers2[, c("TIPLOC Code", "CRS Code")] names(transfers3) <- c("from_stop_id", "CRS Code") transfers1 <- dplyr::left_join(transfers1, transfers3, - by = c("from" = "CRS Code") + by = c("from" = "CRS Code"), + relationship = "many-to-many" ) names(transfers3) <- c("to_stop_id", "CRS Code") transfers1 <- dplyr::left_join(transfers1, transfers3, - by = c("to" = "CRS Code") + by = c("to" = "CRS Code"), + relationship = "many-to-many" ) transfers1 <- transfers1[, c( "from_stop_id", "to_stop_id", diff --git a/R/nptdr_export.R b/R/nptdr_export.R index dc0e9c2..3b68d00 100644 --- a/R/nptdr_export.R +++ b/R/nptdr_export.R @@ -124,7 +124,7 @@ nptdr_makeCalendar <- function(schedule, exceptions, historic_bank_holidays = hi # Historical term times - data("school_terms") + utils::data("school_terms") message("School term dates are illustrative and not exact") calendar_noschool = calendar[is.na(calendar$school_term_time),]