En un dataframe quiero añadir una nueva variable y los valores calcularlos aplicando una función a la que le paso como parametro el valor de una de las variables ya existentes
Es decir, parto de este dataframe
y yo solo soy capaz de hacerlo asi
contratado<-function(proyectoID){
sql<-paste0("SELECT SUM(Detalle.LineTotal) AS Importe
FROM FULCRUM.dbo.RDR1 AS Detalle INNER JOIN
FULCRUM.dbo.ORDR AS Cabecera ON Detalle.DocEntry = Cabecera.DocEntry INNER JOIN
FULCRUM.dbo.OPRJ AS Proyectos ON Detalle.Project = Proyectos.PrjCode
WHERE Cabecera.DocStatus = \'o\' AND Detalle.Project=",dbQuoteString(con,proyectoID))
return (dbGetQuery(con,sql))
}
SumaContratado<-function(df){
for (indiceFila in 1:nrow(df)) {
df[indiceFila,ncol(df)]<-contratado(df$ProyectoID[indiceFila])
}
return(df)
}
df<-df%>%
mutate(Contratado=0)
df <- SumaContratado(df)
Pero asumo que usando spply o map se deberia poder evitar ese bucle for fila por fila pero no soy capaz de enconrar la manera de hacerlo funcionar
Alguna idea por favor?
Un saludo y gracias