在switch语句中计算匿名函数

Say I have a code like this:

假设我有这样的代码:

tmp <- switch("b",
              a = print("foo"),
              b = function() paste("I want to evaluate this one!"),
              stop("say what now?")
)
tmp