R程序书写规范

library(xxx)  # 导入所需的R包
library(xxx)  # 导入所需的R包

fucntion02 <- function(args){ # 定义函数 该函数有一个参数
    # 执行代码
}

function01 <- function(args01, args02, args03){  # 定义函数 该函数有3个参数
    # 执行代码
    function02(args04)  # 调用函数
}

if (sys.nframe() == 0){ # 类似于python中的 if __name__ == "__main__":
    args = commandArgs(T) # 获取命令行参数
    args01 = args[1]
    args02 = args[2]
    args03 = args[3]
    function01(args01, args02, args03)  # 调用函数
}