根据某些条件选择了带apply()的函数

在里面 apply() 函数,我需要提供一个函数名。但在我的例子中,函数名需要基于其他条件。下面就是这样的例子:

library(dplyr)
Function = TRUE
as.data.frame(matrix(1:12, 4)) %>%
    mutate(Res = apply(as.matrix(.), 1, ifelse(Function, ~mean, ~sd), na.rm = TRUE))

然而,我发现以下错误:

Error: Problem with `mutate()` column `Res`.
ℹ `Res = apply(as.matrix(.), 1, ifelse(Function, ~mean, ~sd), na.rm = TRUE)`.
✖ attempt to replicate an object of type 'language'
Run `rlang::last_error()` to see where the error occurred.

你能帮我选择一个函数的正确方法吗。