sapply输出额外的部分结果行

Question

应用函数正在做一些奇怪的事情，我想知道是否有人可以向我解释这一点。

如果我运行以下内容：

namer <- function(x, y) {
  print(paste0("x is ", x))
  print(paste0("y is ", y))
}
sapply(c(1,2,3), FUN = namer, y = 100)

输出：

[1] "x is 1"
[1] "y is 100"
[1] "x is 2"
[1] "y is 100"
[1] "x is 3"
[1] "y is 100"
[1] "y is 100" "y is 100" "y is 100"

为什么最后一行似乎在我提供x输入的情况下运行多次，但只输出y输入（并且全部作为一行）？这使得处理输出有点棘手，因为我每次都需要以某种方式省略最后一行。

感谢。