Try re-recording cassettes once again (#374)

* Simplify test setup

* New fixture for `extract_colmap`

* New fixture for `survey_questions`

* New fixtures for `metadata`

* New fixtures for `fetch_survey`

* New fixtures for `fetch_description`

* New fixture for `column_map`

* Use withr for env vars

* Format some tests

* Back to using these cassettes

* Oops new survey ID

* Don't test this function about writing env vars

* Switch to native pipe

* Try mocking `check_credentials()`

* Add secrets as R env vars

* Add secrets as env vars to test coverage as well

* Regenerate these fixtures yet again

* Back to just skipping on CI for this

Author: juliasilge

.github/workflows/R-CMD-check.yaml

@@ -27,6 +27,8 @@ jobs:
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
       R_KEEP_PKG_SOURCE: yes
+      QUALTRICS_BASE_URL: ${{ secrets.QUALTRICS_BASE_URL }}
+      QUALTRICS_API_KEY: ${{ secrets.QUALTRICS_API_KEY }}
 
     steps:
       - uses: actions/checkout@v4

.github/workflows/test-coverage.yaml

@@ -13,6 +13,8 @@ jobs:
     runs-on: ubuntu-latest
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+      QUALTRICS_BASE_URL: ${{ secrets.QUALTRICS_BASE_URL }}
+      QUALTRICS_API_KEY: ${{ secrets.QUALTRICS_API_KEY }}
 
     steps:
       - uses: actions/checkout@v4

R/checks.R

@@ -717,7 +717,7 @@ checkarg_fetch_id_data <-
       rlang::abort(
         c("Error in `.data`:",
           "`fetch_id()` needs a dataframe from `all_surveys()` with columns `id` & `name`",
-          'Example usage: `all_surveys() %>% fetch_id("That Survey I Need")`')
+          'Example usage: `all_surveys() |> fetch_id("That Survey I Need")`')
       )
     }
   }