R安裝自己功能包指令碼

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("------------------------------------------------")  } }}