R安装自己功能包脚本

最新推荐文章于 2024-08-30 09:50:12 发布

阿狸小镇

最新推荐文章于 2024-08-30 09:50:12 发布

阅读量953

点赞数

分类专栏： R脚本文章标签： R

本文链接：https://blog.csdn.net/u014315941/article/details/75106700

版权

R脚本专栏收录该内容

1 篇文章 0 订阅

订阅专栏

R安装自己功能包脚本，将编译的R程序打成gz压缩包。进行安装
新建 install.r脚本。安装是 ./install.r MyRegression_2.0.tar.gz

#!/usr/bin/Rscript --vanilla --slave 

args<-commandArgs(T)
if(length(args)==0){
  print('请传安装包详细位置信息')
}else{
for(packageName in args){
  fileName<-paste(getwd(),packageName,sep="/")
  print(paste("安装包名称:",fileName))
  if(file.exists(fileName)){
    packageList<-strsplit(packageName,"_")
    packageVector<-as.vector(unlist(packageList[1]))
    name<-packageVector[1]
    if(name %in% rownames(installed.packages()))
    {
          print("-------------------------------")
      print(paste("卸载旧版本的包：",name))
          remove.packages(name)
          print("卸载成功")
          print("-------------------------------")
    }
    install.packages(fileName, repos = NULL, type="source")
    if(name %in% rownames(installed.packages())){
           print("-------------------------------")
           print(paste(fileName,"------>安装成功!"))
           print("-------------------------------")
    }else{
       print("-------------------------------")
       print(paste(fileName,"XXXXXXXXXXXXXXXX->安装失败！"))
       print("-------------------------------")
    }
  }else{
    print("文件不存在")
    print("---------当前目录下的文件有：-------------------")
    print(list.files(getwd()))
    print("------------------------------------------------")
  }
 }
}