Fix for dev waldo (#6823)

Which now actually checks the imaginary part of complex numbers

Author: hadley

tests/testthat/test-deprec-combine.R

@@ -185,15 +185,15 @@ test_that("combine works with NA and complex (#2203)", {
   expect_equal(works1, expected_result)
 
   # NA length == 1
-  expected_result <- c(1, 2, NA, 4) + 1i
+  expected_result <- c(1 + 1i, 2 + 1i, NA, 4 + 1i)
 
   expect_equal(combine(as.list(expected_result)), expected_result)
 
   works2 <- combine(list(1 + 1i, 2 + 1i, NA, 4 + 1i))
   expect_equal(works2, expected_result)
 
   # NA length > 1
-  expected_result <- c(1, 2, NA, NA, 4) + 1i
+  expected_result <- c(1 + 1i, 2 + 1i, NA, NA, 4 + 1i)
   expect_equal(
     combine(split(expected_result, c(1, 2, 3, 3, 4))),
     expected_result