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") > > f = get(".libPaths", envir = baseenv()) > expect_same = makeCompareFun(f, backports:::.libPaths) > > save <- .libPaths() > > f <- tempfile() > expect_same(f) > dir.create(f) > expect_same(f) > if (getRversion() >= "4.1.0") { + expect_same(f, include.site = FALSE) + } else { + .libPaths(f, include.site = FALSE) + expect_same() + } > .libPaths(save, include.site = length(.Library.site) && .Library.site %in% save) > > proc.time() user system elapsed 0.25 0.09 0.32