stragglers

ref #415
OuhscBbmc · Aug 30, 2022 · bb4184c · bb4184c
1 parent 5683b9d
commit bb4184c
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/R/redcap-users-export.R b/R/redcap-users-export.R
@@ -20,7 +20,7 @@
 #' * `data_user`: A [tibble::tibble()] of all users associated with the project.
 #' One row represents one user.
 #' * `data_user_form`: A [tibble::tibble()] of permissions for users and forms.
-#' One row represents a unqiue user-by-form combination.
+#' One row represents a unique user-by-form combination.
 #' * `success`: A boolean value indicating if the operation was apparently
 #' successful.
 #' * `status_codes`: A collection of

diff --git a/man/redcap_users_export.Rd b/man/redcap_users_export.Rd
diff --git a/tests/testthat/test-project.R b/tests/testthat/test-project.R
@@ -42,10 +42,11 @@ test_that("read-insert-and-update", {
   if (update_expectation) save_expected(returned_object2$data, path_expected)
   expected_data_frame <- retrieve_expected(path_expected)
 
-  expect_equal(returned_object2$data, expected=expected_data_frame, label="The returned data.frame should be correct") #returned_object2$data$bmi<-NULL; returned_object2$data$age<-NULL;dput(returned_object2$data)
+  expect_equal(returned_object2$data, expected=expected_data_frame, label="The returned data.frame should be correct", ignore_attr = TRUE) #returned_object2$data$bmi<-NULL; returned_object2$data$age<-NULL;dput(returned_object2$data)
   expect_equal(returned_object2$status_code, expected="200")
   expect_true(returned_object2$records_collapsed=="", "A subset of records was not requested.")
   expect_true(returned_object2$fields_collapsed=="", "A subset of fields was not requested.")
   expect_match(returned_object2$outcome_message, regexp=expected_outcome_message, perl=TRUE)
   expect_true(returned_object2$success)
+  expect_s3_class(returned_object2$data, "tbl")
 })