tests/testthat/test_cloudtrail.R

svc <- paws::cloudtrail()

test_that("describe_trails", {
  expect_error(svc$describe_trails(), NA)
})

test_that("list_public_keys", {
  expect_error(svc$list_public_keys(), NA)
})

test_that("list_trails", {
  expect_error(svc$list_trails(), NA)
})

Try the paws.management package in your browser

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

paws.management documentation built on Aug. 23, 2021, 9:11 a.m.