# .github/workflows/cso_bot.yml (excerpt)
on:
  schedule:
    # every 30 min, 10:00 to 18:30 UTC
    - cron: '*/30 10-18 * * *'
concurrency: cso-bluesky-bot     # one run at a time

jobs:
  check-and-post:
    runs-on: ubuntu-latest
    steps:
      - uses: actions/checkout@v4
      - uses: r-lib/actions/setup-r@v2
      - uses: r-lib/actions/setup-r-dependencies@v2
        with:                        # cached binaries
          packages: any::bskyr any::csodata any::ggplot2
      - run: Rscript bot_cso_bluesky.R
        env:
          BLUESKY_CSOIE_APP_USER: ${{ secrets.BLUESKY_CSOIE_APP_USER }}
          BLUESKY_CSOIE_APP_PASS: ${{ secrets.BLUESKY_CSOIE_APP_PASS }}
      - if: ${{ !cancelled() }}      # even if the bot failed
        run: |
          git add data/
          git commit -m "Update posted tables" || exit 0
          git pull --rebase && git push

# tables the CSO updated in the last week
toc <- cso_get_toc(from_date = as.character(Sys.Date() - 7))

# when each table was last posted, from the bot's own log
last_posted <- posted |>
  mutate(last_posted = as.Date(posted_date)) |>
  slice_max(last_posted, n = 1, by = id, with_ties = FALSE) |>
  select(id, last_posted)

# due: released since yesterday and not posted since that release,
# minus releases that have already failed three times
due <- toc |>
  mutate(release_date = as.Date(LastModified)) |>
  filter(release_date >= Sys.Date() - 1) |>
  left_join(last_posted, by = "id") |>
  filter(is.na(last_posted) | release_date > last_posted) |>
  anti_join(given_up, by = c("id", "release_date")) |>
  arrange(desc(LastModified))   # newest first

df <- cso_get_data(due$id[1], pivot_format = "tall")