Dataset und UDFs mit Sapply

Question

Ich habe eine Datenmenge (Mitarbeiter) erstellt von einem CSV, die Daten wie folgt angezeigt werden;

employee[1,] 

age name designation 
28 Tony Manager 

Ich habe eine Funktion erstellt, die eine Entscheidung basierend auf einem Eingabeparameter zurückgibt;

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

Wenn die Funktion direkt aufgerufen wird, funktioniert es gut und gibt das Ergebnis unten;

Wenn es jedoch innerhalb einer Sapply-Familie aufgerufen wird, löst es einen Referenzfehler aus;

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

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

Irgendwelche Vorschläge, was könnte eine mögliche Abhilfe/Lösung sein?

Ich habe auch versucht, die If-Bedingung mit zu ersetzen;

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

und die Funktion so aufgerufen;

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

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

Answer 1

Sie rufen die Funktion falsch auf. Es sollte auf jeden Fall

myfun <- function(x) x^2 

sapply(xy, FUN = myfun) 

sein, versuchen Sie einen browser() Anruf innerhalb der Funktion einsetzen und prüfen, was los ist. Weitere Informationen finden Sie unter ?browser.

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