tests/testthat/teardown-files.R

In datawookie/clockify: A Wrapper for the 'Clockify' API

if (!(testthat:::on_cran() || NO_API_KEY_IN_ENVIRONMENT)) {
  # Delete lingering time entries.
  #
  walk(time_entries() %>% pull(time_entry_id), time_entry_delete)

  # Delete lingering user groups.
  #
  walk(user_groups() %>% pull(group_id), user_group_delete)

  # Delete lingering tasks.
  #
  walk(
    projects() %>% pull(project_id),
    function(project_id) {
      walk(
        tasks(project_id) %>% pull(task_id),
        ~ task_delete(project_id, .)
      )
    }
  )
}