add new API field

Author: karawoo

R/ptype.R

@@ -15,6 +15,7 @@ connectapi_ptypes <- list(
     "active_time" = NA_datetime_,
     "confirmed" = NA,
     "locked" = NA,
+    "external_id" = NA_character_,
     "guid" = NA_character_
   ),
   groups = tibble::tibble(

tests/integrated/test-get.R

@@ -10,10 +10,7 @@ test_that("get_users works", {
   users <- get_users(client)
 
   expect_s3_class(users, c("tbl_df", "tbl", "data.frame"))
-  expect_equal(
-    purrr::map_chr(vctrs::vec_ptype(users), typeof),
-    purrr::map_chr(vctrs::vec_ptype(connectapi_ptypes$users), typeof)
-  )
+  expect_ptype_equal(users, connectapi_ptypes$users, exact = FALSE)
 
   # Other tests create users, so specifying the exact number here is conditional
   # on the contents of other tests and the order that tests run in.

tests/integrated/test-lazy.R

@@ -35,10 +35,7 @@ test_that("users works", {
   expect_type(colnames(users), "character")
   expect_gt(length(colnames(users)), 1)
 
-  expect_equal(
-    purrr::map_chr(vctrs::vec_ptype(users_local), typeof),
-    purrr::map_chr(vctrs::vec_ptype(connectapi_ptypes$users), typeof)
-  )
+  expect_ptype_equal(users_local, connectapi_ptypes$users, exact = FALSE)
 })
 
 test_that("usage_static works", {