方法一、使用this.path包
library(this.path)
print(this.path::this.dir())
方法二、commandArgs
initial.options <- commandArgs(trailingOnly = FALSE)
file.arg.name <- "--file="
script.name <- sub(file.arg.name, "", initial.options[grep(file.arg.name, initial.options)])
print(script.name)
script.basename <- dirname(script.name)
print(script.basename)
网友评论