Reduce warnings

itsleeds · Aug 31, 2023 · fefc18c · fefc18c
1 parent 4645028
commit fefc18c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git 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
@@ -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),]