tests/testthat/setup.R

In cvisionai/tator-r: R Client for 'Tator'

host <- Sys.getenv("TATOR_HOST")
token <- Sys.getenv("TATOR_TOKEN")

if (host != "" && token != "") {
  project_id <- project_fixture(host, token)
  stopifnot(is.numeric(project_id))

  video_type_id <- video_type_fixture(host, token, project_id)
  stopifnot(is.numeric(video_type_id))

  video_file_path <- video_file_fixture()

  video_id <- video_fixture(host, token, project_id, video_type_id, video_file_path)

  image_type_id <- image_type_fixture(host, token, project_id)

  box_type_id <- box_type_fixture(host, token, project_id, video_type_id, image_type_id)

  image_set_path <- image_set_fixture()
}