Filter unavailable from signups

[jonthegeek]

In actual usage, whenever I read signups, I filter out unavailable times. Move that check into signups_read().

dplyr::filter(
  bookclubdata::signups_read(book_name, refresh = TRUE),
  !(datetime_utc %in% .unavailable_times()$unavailable_time)
)

.unavailable_times <- function() {
bookclubdata::active_clubs_times(TRUE) |>
    dplyr::transmute(
      date_utc = .make_utc(
        day = .data$day_utc,
        hour = .data$hour_utc,
        timezone = "UTC"
      ),
      next_hour = .data$date_utc + lubridate::hours(1),
      prev_hour = .data$date_utc - lubridate::hours(1)
    ) |>
    tidyr::pivot_longer(
      tidyr::everything(),
      values_to = "unavailable_time"
    ) |>
    dplyr::distinct(.data$unavailable_time) |>
    dplyr::arrange(.data$unavailable_time)

I'll need to formalize rules about the next hour/previous hour thing, so think out how multiple zoom accounts impacts things before blindly implementing this (and locking into an incorrect pattern).