評估switch語句中的匿名函數（S）

Question

說我有這樣的代碼：

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

現在，如果我型tmp我得到一個未計算的功能，所以我必須做的添加一對括號之後爲了評價它：

tmp 
## function() paste("I want to evaluate this one!") 
tmp() 
## [1] "I want to evaluate this one!" 

當然，我可以預先設置這個功能和內switch通過它（在它不是匿名的話），但我想知道是否有可能和/或合理的評估匿名功能在switch聲明中。

Answer 1

我想一個可以安排do.call()調用匿名函數：

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

例如爲：

> tmp 
[1] "I want to evaluate this one!" 

---

埃德它 上述情況的一個簡單的版本是：

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

所以在第一組括號和由此產生的函數創建的匿名函數通過附加第二套()調用。

---

但似乎吸塵器我把匿名函數到一個名爲函數，並調用它：

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

具有相同的最終結果：

> tmp 
[1] "I want to evaluate this one!" 

如果這是所有在一個函數內，foo()可以內聯定義，所以它只存在於執行外部函數調用期間。

Answer 2

從我記得，寫你的對象（是data.frame，一個列表或在你的情況下，一個函數）沒有大括號喚起print()。

很明顯：

> class(tmp()) 
[1] "character" 
> class(tmp) 
[1] "function" 

Answer 3

正如羅曼說，你得到一個函數返回。如果你想得到一個函數的結果，那麼只需放置函數（在你的情況下，放棄function()）。如果你想的不同功能的組合，把它放在括號：

tmp <- switch("b", 
       a = print("foo"), 
       b = { 
        x <- paste("I want to evaluate this one!") 
        x <- paste(x,sample(1:10,1)) 
        print(x) 
       }, 
       stop("say what now?") 
) 

但是你應該知道，你只保留了結果，所以你總是從sample有同樣的結果。