tools/winlibs.R

In TileDB-Inc/TileDB-R: Modern Database Engine for Complex Data Based on Multi-Dimensional Arrays

# Build against static libraries from rwinlib or rwinlib-tiledb

dcffile <- "../tools/tiledbVersion.txt"
if (!file.exists(dcffile)) stop("TileDB Version file not found.")
dcf <- read.dcf(dcffile)
ver <- dcf[[1, "version"]]

if (!file.exists("../inst/tiledb/include/tiledb/tiledb.h")) {
    if (getRversion() < "4") stop("This package requires Rtools40 or newer")
    op <- options(timeout = 180) # CRAN request to have patient download settings
    zipfile <- tempfile(tmpdir = tempdir(check = TRUE), fileext = '.zip')
    download.file(
      sprintf("https://github.com/TileDB-Inc/rwinlib-tiledb/archive/v%s.zip", ver),
      destfile = zipfile,
      quiet = !isTRUE(getOption('verbose', default = FALSE))
    )
    options(op)
    unzip(zipfile, exdir = "../inst")
    file.rename(sprintf("../inst/rwinlib-tiledb-%s", ver), "../inst/tiledb")
    unlink(zipfile, force = TRUE)
}