如何从函数打印一个结果但存储其他结果

Question

考虑这个组合函数：

Made_up <- function(x) {
one <- x 
two <- x + 1
three <- x + 2
}

我怎样才能让函数只打印对象三的结果并存储我编写时要调用的其他变量

  answer <- Made_up(1)

  answer$....

Answer 1

与 Vasily A 的回答类似，您可以使用 return 并将函数的结果存储在 answer 中。

Made_up <- function(x) {
  one <- x 
  two <- x + 1
  three <- x + 2
  print(three)
  return(list(one=one, two=two, three=three))
}

answer <- Made_up(1)
answer$one

[1] 1

Answer 2

这个怎么样：

Made_up <- function(x) {
one <- x 
two <- x + 1
three <- x + 2
print(three)
invisible(list(one=one, two=two, three=three))
}