服务器上批量安装本地包

之前介绍说服务器安装包比较繁琐：一个从CRAN上批量下载R包的函数 - 简书
那么下载好怎么批量安装呢？

# install packs on server
dirs <- "~/Dlm_wk/R_zip_pack/"
packs <- list.files(dirs, full.names =T) 
pack_nam <- list.files(dirs) %>% str_replace_all("_.*", "")
for (i in 1:length(packs)) {
  tryCatch({install.packages(packs[i],  repos = NULL, type = "source")
# 如果可以加载，就把安装包删除
    if (library(pack_nam[i],logical.return = T,character.only=TRUE)) file.remove(packs[i])
    detach(paste0("package:", pack_nam[i]), unload=TRUE)
    })
}

反复运行循环直至所有包都能成功安装。