R: on.exit-在不知道其名称的情况下使用返回值

Question

我有以下函数。除了函数中的第一块代码外，我不能以任何方式更改函数
在这个简单的例子中，我想显示在返回对象上应用一些函数
重点是函数返回的变量的名称可能会有所不同，我无法猜测。
显然，我也不能将f函数封装到{ x <- f(); myfun(x); x }中
在我的on.exit调用中，下面的.Last.value表示f函数要返回的值。

f <- function(param){
  # the only code I know - start
  on.exit(if("character" %in% class(.Last.value)) message(print(.Last.value)) else message(class(.Last.value)))
  # the only code I know - end
  # real processing of f()
  a <- "aaa"
  "somethiiiing"
  if(param==1L) return(a)
  b <- 5L
  "somethiiiing"
  if(param==2L) return(b)
  "somethiiiing"
  return(32)
}
f(1L)
# function
# [1] "aaa"
f(2L)
# aaa
# [1] 5
f(3L)
# integer
# [1] 32

上面使用.Last.value的代码似乎在使用和滞后（所以事实上不起作用），而且.Last.value可能不是办法，因为我想像if(fun0(x)) fun1(x) else fun2(x)一样多次使用该值，而且因为返回的值可能是一个大对象，所以在侧面复制它也是一种糟糕的方法
有什么方法可以使用on.exit或任何其他函数来帮助我在不知道结果变量名称的情况下在f函数结果上运行函数？

Answer 1

以类似于修改函数的方式，您也可以轻松地包装它。这是一个可重复的例子。

library(data.table)
append.log<-function(x) {
    cat(paste("value:",x,"n"))
}
idx.dt <- data.table:::`[.data.table`
environment(idx.dt)<-asNamespace("data.table")
idx.wrap <- function(...) {
    x<-do.call(idx.dt, as.list(substitute(...())), envir=parent.frame())
      append.log(if(is(x, "data.table")) {
          nrow(x)
      } else { NA })
      x
}
environment(idx.wrap)<-asNamespace("data.table")
(unlockBinding)("[.data.table",asNamespace("data.table"))
assign("[.data.table",idx.wrap,envir=asNamespace("data.table"),inherits=FALSE)

dt<-data.table(a=1:10, b=seq(2, 20, by=2), c=letters[1:10])
dt[a%%2==0]

Answer 2

由于R 3.2.0，有了新功能returnValue，这是完全可能的。下面的工作示例。

f <- function(x, err = FALSE){
  pt <- proc.time()[[3L]]
  on.exit(message(paste("proc.time:",round(proc.time()[[3L]]-pt,4),"nnrow:",as.integer(nrow(returnValue()))[1L])))
  Sys.sleep(0.001)
  if(err) stop("some error")
  return(x)
}
dt <- data.frame(a = 1:5, b = letters[1:5])
f(dt)
f(dt, err=T)
f(dt)
f(dt[dt$a %in% 2:3 & dt$b %in% c("c","d"),])