src.nocompile/install.libs.R

In agstudy/rsqlserver: SQL Server interface for R

libarch <- if (nzchar(R_ARCH)) paste('libs', R_ARCH, sep='') else "libs"
dest <- file.path(R_PACKAGE_DIR, libarch)
dest.dll <- file.path(R_PACKAGE_DIR, 'libs')
src <- file.path(R_PACKAGE_SOURCE ,"src/rsqlserver.net/bin/Debug")
files <- Sys.glob(file.path(src,   c("*.dll","*.config")))
dest.files = file.path(file.path(R_PACKAGE_SOURCE,"libs"),"*.dll")
if (length(Sys.glob(dest.files))) 
  lapply(Sys.glob(dest.files),file.remove(files))
dir.create(dest, recursive = TRUE, showWarnings = FALSE)
file.copy(files, dest.dll, overwrite = TRUE)