如何通過函數傳遞表達式以使子函數在R中求值

Question

我正在嘗試為不同的對象類編寫一個子集方法，我希望用戶能夠執行與他們使用subset.data.frame函數相同的方式。 我讀過像一些相關的文章這個和這個 ，但我不認為他們在這里是解決方案。 我相信我使用的是錯誤的環境，但是我對環境以及substitute函數的理解還不夠，無法弄清楚為什么這段代碼的前半部分有效，而后半部分卻無效。 誰能解釋我在下面做錯了什么，然后如何制作可以將gear == 4作為其第二個參數的有效lsubset函數？ 對不起，如果我的搜索中沒有找到類似的問題。.謝謝！

# create a list of mtcars data frames
mtlist <- list( mtcars , mtcars , mtcars )
# subset them all - this works
lapply( mtlist , subset , gear == 4 )


# create a function that simply replicates the task above
lsubset <- 
    function( x , sset ){
        lapply( x , subset , sset )
    }

# this does not work for some reason
lsubset( mtlist , gear == 4 )

Answer 1

關於什么：

lsubset <- 
    function( x , ... ){
        lapply( x , subset , ... )
    }

lsubset( mtlist , gear == 4 )