1 2progs <- if (WINDOWS) { 3 file.path("tools", c("cmdzip.exe", "cmdunzip.exe", "zip.exe")) 4} else { 5 file.path("tools", c("cmdzip", "cmdunzip")) 6} 7 8dest <- file.path(R_PACKAGE_DIR, paste0("bin", R_ARCH)) 9dir.create(dest, recursive = TRUE, showWarnings = FALSE) 10file.copy(progs, dest, overwrite = TRUE) 11 12files <- Sys.glob(paste0("*", SHLIB_EXT)) 13dest <- file.path(R_PACKAGE_DIR, paste0('libs', R_ARCH)) 14dir.create(dest, recursive = TRUE, showWarnings = FALSE) 15file.copy(files, dest, overwrite = TRUE) 16if (file.exists("symbols.rds")) { 17 file.copy("symbols.rds", dest, overwrite = TRUE) 18} 19