[arrow] branch master updated: ARROW-13216: [R] Type checks test fails with rtools35

[ia...@apache.org]

This is an automated email from the ASF dual-hosted git repository.

ianmcook pushed a commit to branch master
in repository https://gitbox.apache.org/repos/asf/arrow.git


The following commit(s) were added to refs/heads/master by this push:
     new 3ce67eb  ARROW-13216: [R] Type checks test fails with rtools35
3ce67eb is described below

commit 3ce67ebe6750da22d04e73eab85e484fd29f8264
Author: Ian Cook <ia...@gmail.com>
AuthorDate: Tue Jul 6 17:42:49 2021 -0400

    ARROW-13216: [R] Type checks test fails with rtools35
    
    Closes #10666 from ianmcook/ARROW-13216
    
    Authored-by: Ian Cook <ia...@gmail.com>
    Signed-off-by: Ian Cook <ia...@gmail.com>
---
 r/tests/testthat/test-dplyr.R | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/r/tests/testthat/test-dplyr.R b/r/tests/testthat/test-dplyr.R
index 6740b3e..459c5eb 100644
--- a/r/tests/testthat/test-dplyr.R
+++ b/r/tests/testthat/test-dplyr.R
@@ -816,7 +816,19 @@ test_that("type checks on expressions", {
         b = is.integer(as.character(int)),
         c = is.integer(int + int),
         d = is.double(int + dbl),
-        e = is.logical(grepl("[def]", chr))
+        e = is.logical(dbl > pi)
+      ) %>%
+      collect(),
+    tbl
+  )
+  
+  # the code in the expectation below depends on RE2
+  skip_if_not_available("re2")
+
+  expect_dplyr_equal(
+    input %>%
+      transmute(
+        a = is.logical(grepl("[def]", chr))
       ) %>%
       collect(),
     tbl