R语言中利用optparse包给函数传递参数

 

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