R Under development (unstable) (2024-05-22 r86590 ucrt) -- "Unsuffered Consequences" Copyright (C) 2024 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > source("helper/helper.R") > > if (exists("asplit", envir = baseenv())) { + f = get("asplit", envir = baseenv()) + expect_same = makeCompareFun(f, backports:::asplit) + + d <- 2 : 4 + x <- array(seq_len(prod(d)), d) + expect_same(x, 2) + expect_same(x, c(1, 2)) + x <- matrix(1 : 6, 2, 3) + expect_same(x, 1) + } > > proc.time() user system elapsed 0.21 0.07 0.26