提取函数的结果

我找过这里,但无法解决我的问题: Extract the results of a function

假设我们有一个返回用户所写内容的伪函数,如何提取该函数中的内容。我从机器学习算法中使用的功能中获得灵感。例如,这种功能:

z<-train(.........)#just an example

从上面我可以提取几个结果,例如, z$finalmodel #an example 等等。怎么做到的? 下面是我的示例函数:

dummy_fun<-function(x,y){
  y<-deparse(substitute(y))
  x<-deparse(substitute(x))
  z<-data.frame(X=x,Y=y)
  q<-print(paste0("You wrote ",x," and ", y))

}
res<-dummy_fun(Hi,There)

这个 dummy_fun 包含对象Z和Q,如何提取它们? 谢谢!