change logical 'or' to 'and'

ref #317

Author: wibeasley

R/redcap-read.R

@@ -340,7 +340,7 @@ redcap_read <- function(
     }
 
     lst_batch[[i]]   <- read_result$data
-    success_combined <- success_combined | read_result$success
+    success_combined <- success_combined & read_result$success
 
     rm(read_result) #Admittedly overkill defensiveness.
   }

R/redcap-write.R

@@ -172,7 +172,7 @@ redcap_write <- function(
     }
 
     affected_ids     <- c(affected_ids, write_result$affected_ids)
-    success_combined <- success_combined | write_result$success
+    success_combined <- success_combined & write_result$success
 
     rm(write_result) #Admittedly overkill defensiveness.
   }

tests/testthat/test-write-error.R

@@ -76,7 +76,7 @@ test_that("Single Batch: writing with read-only privileges --contiue on error",
     result <- REDCapR::redcap_write(ds=mtcars, redcap_uri=credential$redcap_uri, token=credential$token, continue_on_error=TRUE)
   ))
 
-  expect_true( result$success)
+  expect_false(result$success)
   expect_equal(result$status_code, expected="403")
   expect_equal(result$outcome_message, expected_message)
   expect_equal( result$records_affected_count, 0L)
@@ -97,7 +97,7 @@ test_that("Many Batches: writing with read-only privileges --contiue on error",
     result <- REDCapR::redcap_write(ds=mtcars, redcap_uri=credential$redcap_uri, token=credential$token, continue_on_error=TRUE, batch_size=10)
   ))))
 
-  expect_true( result$success)
+  expect_false(result$success)
   expect_equal(result$status_code, expected="403; 403; 403; 403")
   expect_match(result$outcome_message, expected_message)
   expect_equal( result$records_affected_count, 0L)