Function lapply

methods/svec/src/pg_gp/SparseData.c:1754–1768

* This function applies an input function on all elements of a sparse data. * The function is modelled after the corresponding function in R. * * @param func The name of the function to apply * @param sdata The input sparse data to be modified * @return A SparseData with the same dimension as sdata but with each element sdata[i] replaced by func(sdata[i]) */

 * @return A SparseData with the same dimension as sdata but with each element sdata[i] replaced by func(sdata[i])
 */
SparseData lapply(text * func, SparseData sdata) {
	Oid argtypes[1] = { FLOAT8OID };
	List * funcname = textToQualifiedNameList(func);
	SparseData result = makeSparseDataCopy(sdata);
	Oid foid = LookupFuncName(funcname, 1, argtypes, false);

	lapply_error_checking(foid, funcname);

	for (int i=0; i<sdata->unique_value_count; i++)
		valref(float8,result,i) =
		    DatumGetFloat8(
		      OidFunctionCall1(foid,
				    Float8GetDatum(valref(float8,sdata,i))));
	return result;
}

/* This function checks for error conditions in lapply() function calls.
 */