R语言导入package

在不同的环境运行R代码时，常常会碰到代码需要依赖的package没有安装，设计一个函数import，对没有安装的package自动下载安装。

使用: import(“package_name”)

import <- function(pkg) {
    
    if(!is.character(pkg)) {
        stop("The argument of import function should be character.")
    }
    
    if(length(pkg) > 1) {
        stop("Just import 1 package once.")
    }
    
    if(!require(pkg, character.only = TRUE)) {
        install.packages(pkg)
        library(pkg, character.only = TRUE)
        
        cat("Install and load the package", pkg, "successfully.\n")
    }
    else {
        cat(pkg, "is loaded.\n")
    }
    
    search()  # output the loaded package.
}