r - R 函数中的自定义选项卡完成

Question

我目前正在编写一个只接受某些输入的函数(在示例中只有“a”和“b”)。对于所有其他输入，该函数将返回错误。

test <- function(x) {
  allowedX <- c("a","b")
  if(x %in% allowedX) print("Good choice!")
  else stop("wrong input!")
}

为了帮助该函数的用户，我想使用 R 中的制表符补全功能为 x(存储在 allowedX 中)提供允许的值，并替换通常在引号后应用的默认文件名补全。所以按 TAB 应该给出类似的内容:

test(x="<TAB>
a b

但是，到目前为止，我找不到如何将向量 allowedX 映射到 R 中的选项卡完成的解决方案。有人可以告诉我该怎么做吗？

提前致谢!

Answer 1

您可以尝试以下操作:

test <- function() {
  allowedX <- c("a","b")
  x = readline('Please enter your choice of parameters (either "a" or "b"): ')
  if(x %in% allowedX) print("Good choice!")
  else stop("wrong input!")
}