tests/testthat/test_redshiftdataapiservice.R

svc <- paws::redshiftdataapiservice()

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

test_that("list_statements", {
  expect_error(svc$list_statements(MaxResults = 20), NA)
})

Try the paws.database package in your browser

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

paws.database documentation built on Sept. 12, 2023, 1:21 a.m.