批量安装R包小技巧大放送

生信技能树

发布于 2020-02-20 14:46:08

1.1K0

发布于 2020-02-20 14:46:08

文章被收录于专栏：生信技能树

我们周末班准备工作给的安装R包 http://www.bio-info-trainee.com/3727.html 是一个个R包慢慢安装，主要是考虑到初学者不理解循环这样的编程概念，但实际上要批量安装也是可以的。

首先配置中国大陆特色镜像

options()$repos 
options()$BioC_mirror
options(BioC_mirror="https://mirrors.ustc.edu.cn/bioc/")
options("repos" = c(CRAN="https://mirrors.tuna.tsinghua.edu.cn/CRAN/"))
options()$repos 
options()$BioC_mirror

然后按需安装指定的R包

# https://bioconductor.org/packages/release/bioc/html/GEOquery.html
if (!requireNamespace("BiocManager", quietly = TRUE))
 install.packages("BiocManager")
BiocManager::install("KEGG.db",ask = F,update = F)
BiocManager::install(c("GSEABase","GSVA","clusterProfiler" ),ask = F,update = F)
BiocManager::install(c("GEOquery","limma","impute" ),ask = F,update = F)
BiocManager::install(c("org.Hs.eg.db","hgu133plus2.db" ),ask = F,update = F)

实际上，大家即使是没有学习过R包安装，也可以看得懂，变化R包名字，就可以一行行运行代码来安装指定的包了！

批量安装R包而且不重复安装呢？

当然也是有办法的，我在移植一些shiny应用程序就用到过。

list.of.packages <- c("shiny",
                      "tidyr",
                      'tidyverse', 
                      "clusterProfiler",
                      "DT",
                      "ashr",
                      "enrichplot",
                      "plotly")

#checking missing packages from list
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
new.packages 
packToInst <- setdiff(list.of.packages, installed.packages())
packToInst
if(T){
  lapply(packToInst, function(x){
    BiocManager::install(x,ask = F,update = F)
  })
}
lapply(intersect(packagesReq, installed.packages()),function(x){
  suppressPackageStartupMessages(library(x,character.only = T))
})

其实你有没有发现，代码反而是多了呢？

嘻嘻

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2020-01-17，如有侵权请联系 cloudcommunity@tencent.com 删除

shiny