announce_meeting.yml

name: "Lab meeting announcement"
on:
  workflow_dispatch:
  schedule:
    - cron: "0 8 * * 1"

jobs:
  announce-meeting:
    runs-on: ubuntu-20.04
    env:
      RSPM: "https://packagemanager.rstudio.com/cran/__linux__/focal/latest"
      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
    steps:
      - uses: actions/checkout@master

      - uses: r-lib/actions/setup-r@v2

      - uses: r-lib/actions/setup-r-dependencies@v2
        with:
          extra-packages: |
            pkgload
            httr

      - name: Announce meeting
        env:
          SLACK_INCOMING_WEBHOOK_URL: ${{ secrets.EPIFORECASTS_WEBHOOK }}
          GSHEET_ID: ${{ secrets.GSHEET_ID }}
        run: |
          pkgload::load_all(".")
          googlesheets4::gs4_deauth()
          this_week_plan <- get_meeting_info(Sys.getenv("GSHEET_ID"))
          msg <- create_announcement_msg(
            assignee = this_week_plan[["Speaker"]],
            random = this_week_plan[["Random"]],
            chair = this_week_plan[["Chair"]],
            notes = this_week_plan[["Notetaking"]],
            topic = this_week_plan[["Topic"]]
          )
          if (!is.null(msg)) {
            req <- httr::POST(
              url = Sys.getenv("SLACK_INCOMING_WEBHOOK_URL"),
              body = list(text = msg, type = "mrkdwn"),
              encode = "json"
            )
            httr::stop_for_status(req)
          }
        shell: Rscript {0}