Question

我正在使用optparse包，但无法确定是否可以指定强制参数。

install.packages('optparse')
library('optparse')
library('data.table')

# example from vignette
option_list <- list(
  # those 2 are linked together by dest='verbose'
  # store_true makes sure it does not take any arg by storing TRUE (or default if specified)
  make_option(c("-v", "--verbose"), action="store_true", default=TRUE, help="Print extra output [default %default]"),
  make_option(c("-q", "--quietly"), action="store_false", dest="verbose", help="Print little output"),
  #
  make_option(c("-c", "--count"), type="integer", default=5L, help="Number of rgn [default %default]", metavar="number"),
  make_option("--generator", default="rnorm", help = "Function to generate random deviates [default \"%default\"]")
)
parser <- OptionParser(option_list=option_list)

# vanilla case
parsedArgs <- parse_args(parser, args = c("-c","100","--generator","fakeGen"))
setcolorder(setDT(stack(parsedArgs)),c('ind','values'))[]
#         ind  values
#1:   verbose    TRUE
#2:     count     100
#3: generator fakeGen
#4:      help   FALSE

假设我希望用户输入[-d - 日期SOMEDATE]，提供默认日期并没有多大意义...我怎么能告诉 optparse 某些args是强制性的？

Answer 1

根据其documentation，optparse包似乎没有实现强制性功能。

但是，作为一种变通方法，您可以随时检查参数值，并在未设置参数的情况下stop()执行脚本。

一种方法可能是：

install.packages('optparse')
library('optparse')
library('data.table')

# example from vignette
option_list <- list(
  make_option(c("-v", "--verbose"), action="store_true", default=TRUE, help="Print extra output [default %default]"),
  make_option(c("-q", "--quietly"), action="store_false", dest="verbose", help="Print little output"),
  make_option(c("-c", "--count"), type="integer", default=5L, help="Number of rgn [default %default]", metavar="number"),
  make_option("--generator", default="rnorm", help = "Function to generate random deviates [default \"%default\"]"),
  make_option(c("-d", "--date"), action = "store", default = NA, type = 'character',
              help = "some date to be converted from character")
)
parser <- OptionParser(option_list=option_list)

# check date is provided
if (!is.na(parser$date)) {
  mydate <- as.Date(parser$date)
}
else {
  stop("date parameter must be provided. See script usage (--help)")
}

通过将日期的默认值设置为NA，我们可以稍后检查它是否已提供。

注意：由于date将包含用户的输入，您应该执行一些检查和/或处理as.Date()函数发出的可能错误，如果它无法解析给定的参数选项。

我可以用optparse指定强制参数吗？

1 个答案: