如何从R函数中连续返回结果？

addition <- function(a, b) {
  result <- list()
  result$sum <- a + b
  result$difference <- a - b
  result$product <- a * b
  result$quotient <- a / b
  
  return(result)
}

# 调用函数并获取结果
output <- addition(10, 5)
print(output$sum)  # 打印和
print(output$difference)  # 打印差
print(output$product)  # 打印积
print(output$quotient)  # 打印商

division <- function(a, b) {
  result_env <- new.env()
  result_env$quotient <- a %/% b
  result_env$remainder <- a %% b
  
  return(result_env)
}

# 调用函数并获取结果
output_env <- division(10, 3)
print(output_env$quotient)  # 打印商
print(output_env$remainder)  # 打印余数

statistics <- function(x) {
  result_df <- data.frame(mean = mean(x), median = median(x), sd = sd(x))
  
  return(result_df)
}

# 调用函数并获取结果
output_df <- statistics(c(1, 2, 3, 4, 5))
print(output_df$mean)  # 打印平均值
print(output_df$median)  # 打印中位数
print(output_df$sd)  # 打印标准差