1src_dir <- file.path(R_PACKAGE_SOURCE, "src", fsep = "/") 2dest_dir <- file.path(R_PACKAGE_DIR, paste0("libs", R_ARCH), fsep="/") 3 4dir.create(file.path(R_PACKAGE_DIR, paste0("libs", R_ARCH), fsep="/"), recursive = TRUE, showWarnings = FALSE) 5file.copy(file.path(src_dir, "arrow.dll", fsep = "/"), file.path(dest_dir, "lib_arrow.dll", fsep = "/")) 6