1、
root@DESKTOP-1N42TVH:/home/test2# ls a.txt test.r root@DESKTOP-1N42TVH:/home/test2# cat test.r #!/usr/bin/Rscript library(optparse) option_list <- list( make_option(c("-a", "--aa"), type = "character"), make_option(c("-b", "--bb"), type = "integer") ) opt_parser = OptionParser(option_list=option_list); opt = parse_args(opt_parser); dat <- read.table(opt$a, header = F) dat <- head(dat, opt$b) write.table(dat, "dat.txt", row.names = F, col.names = F, quote = F) root@DESKTOP-1N42TVH:/home/test2# cat a.txt 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 root@DESKTOP-1N42TVH:/home/test2# Rscript test.r -a a.txt -b 3 ## -a,-b用于指定输入参数 root@DESKTOP-1N42TVH:/home/test2# ls a.txt dat.txt test.r root@DESKTOP-1N42TVH:/home/test2# cat dat.txt 1 1 1 2 2 2 3 3 3
参考:https://blog.51cto.com/yijiaobani/2842457