-service_ids <- gtfs$.$servicepattern %>%
+service_ids <- gtfs$.$servicepatterns %>%
filter(servicepattern_id == 's_e25d6ca') %>%
pull(service_id)
diff --git a/articles/servicepatterns.html b/articles/servicepatterns.html
index dc945e4..2bdbbf7 100644
--- a/articles/servicepatterns.html
+++ b/articles/servicepatterns.html
@@ -369,14 +369,9 @@ Plot number of trips per day a
map.
trips_servicepattern = left_join(select(gtfs$trips, trip_id, service_id), gtfs$.$servicepatterns, by = "service_id")
-trip_dates = left_join(gtfs$.$dates_servicepatterns, trips_servicepattern, by = "servicepattern_id")
-## Warning in left_join(gtfs$.$dates_servicepatterns, trips_servicepattern, : Detected an unexpected many-to-many relationship between `x` and `y`.
-## ℹ Row 1 of `x` matches multiple rows in `y`.
-## ℹ Row 19550 of `y` matches multiple rows in `x`.
-## ℹ If a many-to-many relationship is expected, set `relationship =
-## "many-to-many"` to silence this warning.
-
-trip_dates_count = trip_dates %>% group_by(date) %>% summarise(count = dplyr::n())
+trip_dates = left_join(gtfs$.$dates_servicepatterns, trips_servicepattern, by = "servicepattern_id", relationship = "many-to-many")
+
+trip_dates_count = trip_dates %>% group_by(date) %>% summarise(count = dplyr::n())
trip_dates_count$weekday <- lubridate::wday(trip_dates_count$date, label = T, abbr = T, week_start = 7)
trip_dates_count$day_of_month <- lubridate::day(trip_dates_count$date)
trip_dates_count$first_day_of_month <- lubridate::wday(trip_dates_count$date - trip_dates_count$day_of_month, week_start = 7)
diff --git a/articles/timetable.html b/articles/timetable.html
index fc1ab4b..6f71bea 100644
--- a/articles/timetable.html
+++ b/articles/timetable.html
@@ -538,7 +538,7 @@ Simple plot
departures_180823_sub_7to8 <- departures_180823 %>%
filter(stop_id %in% c("127N", "127S")) %>%
- filter(departure_time >= hms::hms(hours = 7) & departure_time <= hms::hms(hour = 8))
+ filter(departure_time >= hms::hms(hours = 7) & departure_time <= hms::hms(hours = 8))
ggplot(departures_180823_sub_7to8) + theme_bw() +
geom_point(aes(y=trip_headsign, x=departure_time, color = route_short_name), size = 1) +
diff --git a/pkgdown.yml b/pkgdown.yml
index 35f5180..baed358 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -6,4 +6,4 @@ articles:
introduction: introduction.html
servicepatterns: servicepatterns.html
timetable: timetable.html
-last_built: 2024-10-16T07:45Z
+last_built: 2024-10-16T11:10Z