tests/testthat/helper-initialize.R

In rstudio/rscloud: Provides an R client to the rstudio.cloud REST APIs

library(rscloud)

clean_up <- function() {
  space <- rscloud_space(name = "test-space-1")

  members <- space %>%
    space_member_list() %>%
    dplyr::filter(email != "rscloud.test.01@gmail.com")
  space %>%
    purrr::safely(space_member_remove)(members, content_action = "leave", ask = FALSE)

  space %>%
    purrr::possibly(space_invitation_list, otherwise = NULL)() %>%
    purrr::safely(invitation_rescind)()
  invisible(NULL)
}

clean_up()