don't request pseudofields

close #477
OuhscBbmc · Apr 21, 2023 · 3720297 · 3720297
1 parent df1b87f
commit 3720297
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/redcap-read-oneshot.R b/R/redcap-read-oneshot.R
@@ -229,6 +229,8 @@ redcap_read_oneshot <- function(
 
   validate_field_names(fields, stop_on_error = TRUE)
 
+  fields              <- setdiff(fields, c("redcap_event_name", "redcap_repeat_instrument", "redcap_repeat_instance"))
+
   token               <- sanitize_token(token)
   records_collapsed   <- collapse_vector(records)
   fields_collapsed    <- collapse_vector(fields)

diff --git a/tests/testthat/test-read-batch-plumbing.R b/tests/testthat/test-read-batch-plumbing.R
@@ -54,7 +54,7 @@ test_that("longitudinal", {
   expect_true(returned_object$success)
   expect_match(returned_object$status_codes, regexp="200", perl=TRUE)
   expect_true(returned_object$records_collapsed=="", "A subset of records was not requested.")
-  expect_equal(returned_object$fields_collapsed, "study_id,redcap_event_name")
+  expect_equal(returned_object$fields_collapsed, "study_id")
   expect_true(returned_object$filter_logic=="", "A filter was not specified.")
   expect_match(returned_object$outcome_messages, regexp=expected_outcome_message, perl=TRUE)
 })
@@ -82,7 +82,7 @@ test_that("repeated", {
   expect_true(returned_object$success)
   expect_match(returned_object$status_codes, regexp="200", perl=TRUE)
   expect_true(returned_object$records_collapsed=="", "A subset of records was not requested.")
-  expect_equal(returned_object$fields_collapsed, "record_id,redcap_repeat_instrument,redcap_repeat_instance")
+  expect_equal(returned_object$fields_collapsed, "record_id")
   expect_true(returned_object$filter_logic=="", "A filter was not specified.")
   expect_match(returned_object$outcome_messages, regexp=expected_outcome_message, perl=TRUE)
 })