tests/testthat/test-drive_user.R

test_that("drive_user() reports on the user", {
  skip_if_no_token()
  skip_if_offline()

  user <- drive_user()
  expect_s3_class(user, "drive_user")
  expect_true(all(c("displayName", "emailAddress") %in% names(user)))
})

Try the googledrive package in your browser

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

googledrive documentation built on July 9, 2023, 7:04 p.m.