使用sapply的數據集和UDF

Question

我有一個從csv創建的數據集（僱員），它顯示如下所示的數據;

employee[1,] 

age name designation 
28 Tony Manager 

我已經創建了返回基於輸入參數的決定的功能;

loan_eligible_decision <- function(p) 
{ 
    if(p$designation == "manager") 
    { 
    decision <- "yes" 
    } 
    return(decision) 
} 

當函數被直接調用時，它工作正常，並給出下面的結果;

loan_eligible_decision(employee[1,]) 

gives me output: yes 

但是，當在sapply家族中調用它時會拋出一個引用錯誤;

sapply(data.frame(employee[1,]),loan_eligible_decision(x)) 

Error in p$marital : $ operator is invalid for atomic vectors 

有什麼建議可能是一種可能的解決方法/解決方案？

我也嘗試更換if條件;

if(p[[designation]] == "manager") 

並要求這樣的功能;

sapply(employee['1',],loan_eligible_decision(x)) 

The error: 
Error in loan_eligible_decision(x) : object 'designation' not found 

Answer 1

您正在錯誤地調用該功能。它應該是

myfun <- function(x) x^2 

sapply(xy, FUN = myfun) 

在任何情況下，請嘗試將函數內的browser()呼叫，並檢查到底是怎麼回事。有關更多信息，請參閱?browser。

myfun <- function(x) { 
    browser() 
    x^2 
}