empty

R Under development (unstable) (2024-10-20 r87250 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. > > isWindows <- Sys.info()[["sysname"]] == "Windows" > isArm <- Sys.info()[["machine"]] == "arm64" > isVersion41 <- getRversion() >= "4.1.0" && getRversion() < "4.2.0" > options("dratBranch" = "docs") > > repodir <- tempdir() > docsdir <- file.path(repodir, "docs") > if (!dir.exists(docsdir)) dir.create(docsdir) > cat("empty", file=file.path(docsdir, "index.html")) > > if (!isWindows) { # this is the default case of a source package + pkg <- system.file("extdata", "src", "bar_1.0.tar.gz", package="drat") + drat::insertPackage(file = pkg, repodir = repodir) + + avpkg <- available.packages(repos=file.path("file:", docsdir)) + + good <- avpkg[1,1] == "bar" && avpkg[1,2] == "1.0" + if (!good) stop("Package round-turn failed for source package") + } > > if (isArm && isVersion41) { + pkg <- system.file("extdata", "big-sur-arm64", "bin", "4.1", "bar_1.0.tgz", package="drat") + drat::insertPackage(file = pkg, repodir = repodir, action = "prune") + + avpkg <- available.packages(repos=file.path("file:", docsdir)) + + good <- avpkg[1,1] == "bar" && avpkg[1,2] == "1.0" + if (!good) stop("Package round-turn failed for Arm binary package") + } > > proc.time() user system elapsed 0.09 0.06 0.14