R：使用匿名函数返回向量的最后一个元素

Question

任务是：

  

现在尝试使用evaluate（）和匿名函数返回   向量c（8,4,0）的最后一个元素。你的匿名功能   应该只采用一个应该是变量x的参数。

我的回答是：

evaluate(function(x){x[3]},c(8,4,0))

使用'evaluate'= function（func，dat）

但程序（漩涡，数据广告）告诉我这是不正确的。他们建议我使用length()函数。

length()函数如何返回向量c(8,4,0)中的最后一个元素？

Answer 1

假设evaluate是一个函数，它接受一个函数和一些数据并将该函数应用于数据......

evaluate <- function(func, dat){
   func(dat)
}

然后以下内容应该有效......

evaluate(function(x){x[length(x)]}, dat=c(8,4,0))

在这种情况下

x[length(x)]

将为您提供向量x的最后一个元素。