我可以在函数中使用关系或条件作为变量吗？

Question

例如让我们成为一个向量ttt <- c(1,5,7,2,6)，并假设我们想要一个向量的ttt的元素大于2。那么我们必须写ttt[ttt>2]。

我们可以有一个函数TF_sequense(,)，女巫通过写TF_sequense(ttt,>2)来做这件事吗？

我尝试了this 问题中的do.call() 函数，但找不到解决方案。

提前致谢！

Answer 1

我们可以使用

 TF_sequence <- function(vec, expr) {
               obj1 <- deparse(substitute(vec))
               eval(parse(text = sprintf("%s[%s%s]", obj1, obj1, expr)))
  }

 TF_sequence(ttt, ">2")