Update windows install to include libtiledb source

NAMESPACE

@@ -24,6 +24,7 @@ export("return_as<-")
 export("selected_points<-")
 export("selected_ranges<-")
 export("strings_as_factors<-")
+export(.pkg_config)
 export(allows_dups)
 export(array_consolidate)
 export(array_vacuum)

src/Makevars.win

@@ -1,5 +1,6 @@
 CXX_STD = CXX17
-RWINLIB = ../windows/rwinlib-tiledb
+# RWINLIB = ../windows/rwinlib-tiledb
+RWINLIB = ../inst/tiledb
 
 PKG_CPPFLAGS = -I. -I../inst/include -I$(RWINLIB)/include -I$(RWINLIB)/include/tiledb -DTILEDB_STATIC_DEFINE -DTILEDB_SILENT_BUILD
 PKG_LIBS = \

tools/winlibs.R

@@ -5,14 +5,21 @@ if (!file.exists(dcffile)) stop("TileDB Version file not found.")
 dcf <- read.dcf(dcffile)
 ver <- dcf[[1, "version"]]
 
-if (!file.exists("../windows/rwinlib-tiledb/include/tiledb/tiledb.h")) {
+# if (!file.exists("../windows/rwinlib-tiledb/include/tiledb/tiledb.h")) {
+if (!file.exists("../inst/tiledb/include/tiledb/tiledb.h")) {
     if (getRversion() < "4") stop("This package requires Rtools40 or newer")
-    op <- options()
-    options(timeout=180)                # CRAN request to have patient download settings
-    download.file(sprintf("https://github.com/TileDB-Inc/rwinlib-tiledb/archive/v%s.zip", ver), "lib.zip", quiet = TRUE)
+    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 = TRUE
+    )
     options(op)
-    dir.create("../windows", showWarnings = FALSE)
-    unzip("lib.zip", exdir = "../windows")
-    file.rename(sprintf("../windows/rwinlib-tiledb-%s", ver), "../windows/rwinlib-tiledb")
-    unlink("lib.zip")
+    # dir.create("../windows", showWarnings = FALSE)
+    # unzip("lib.zip", exdir = "../windows")
+    unzip(zipfile, exdir = "../inst")
+    # file.rename(sprintf("../windows/rwinlib-tiledb-%s", ver), "../windows/rwinlib-tiledb")
+    file.rename(sprintf("../inst/rwinlib-tiledb-%s", ver), "../inst/tiledb")
+    unlink(zipfile, force = TRUE)
 }