inst/tinytest/bind_array_1_basic/test-bind_array-edgecases.R

In broadcast: Broadcasted Array Operations Like 'NumPy'

# set-up ====
enumerate <- 0L
errorfun <- function(tt) {
  
  if(isFALSE(tt)) stop(print(tt))
}

# bind_array as c() ====
x <- array(as.raw(sample(1:10)))
y <- array(as.raw(sample(1:10, 1L)))
names(x) <- letters[1:10]
names(y) <- "a"
out <- c(x, y)
expect_equal(
  as.array(out),
  bind_array(list(x, y), 1L)
)


# bind empty with non-empty ====
x <- array(as.raw(1:12), c(12, 1))
names(x) <- month.abb
emptyarray <- array(raw(0L), c(0L, 1:10))
input <- list(emptyarray, x)
for(i in 0:3) {
  expect_equal(
    bind_array(input, i),
    x
  ) |> errorfun()
}
enumerate <- enumerate + 4L



# bind with empty or NA input names ====

x <- array(as.raw(1:20), c(5, 3), list(NULL, LETTERS[1:3]))
y <- array(as.raw(21:40), c(5, 3))
z <- array(as.raw(41:60), c(5, 3))
input <- list(x, y, z)
names(input) <- c("", NA, "")

expected <- do.call(cbind, input)
expect_equal(
  bind_array(input, 2L),
  expected
)
enumerate <- enumerate + 1L