tests/testthat/test-gm_thread.R

test_that("threads and thread work", {
  skip_if_no_token()

  thrds <- gm_threads()
  expect_s3_class(thrds, "gmail_threads")

  ids <- gm_id(thrds)
  expect_true(length(ids) > 0)

  thr <- gm_thread(ids[[1]])

  expect_equal(gm_id(thr), ids[[1]])
})

Try the gmailr package in your browser

Any scripts or data that you put into this service are public.

gmailr documentation built on July 9, 2023, 5:07 p.m.