search for: freduce

Because I didn't find in R any functions similar to the function 'reduce' from Python, I'm writing a function "freduce" as follows: freduce <- function(f, vec, ValIni=NULL, StopIn=NULL) { # f: is any function that takes two arguments of the same type # vec: is a vector of n values accepted by 'f' # # Initially f starts with ValIni, if it's given or the first element # of 'vec...

...btool --mode=compile gcc -DHAVE_CONFIG_H -I../include -I. -I../libmp3lame -I.. -O3 -fomit-frame-pointer -ffast-math -funroll-loops -fthread-jumps -malign-double -frerun-loop-opt -fgcse -fexpensive-optimizations -fmove-all-movables -fschedule-insns2 -freduce-all-givs -mpentiumpro -march=pentiumpro -mfancy-math-387 -Wall -pipe -c -o tabinit.lo `test -f tabinit.c || echo './'`tabinit.c rm -f .libs/tabinit.lo gcc -DHAVE_CONFIG_H -I../include -I. -I../libmp3lame -I.. -O3 -fomit-frame-pointer -ffast-math -funroll-lo...

...subset(y == 1) traceback() > Error in eval(e, x, parent.frame()) : object 'y' not found > 12: eval(e, x, parent.frame()) 11: eval(e, x, parent.frame()) 10: subset.data.frame(., y == 1) 9: subset(., y == 1) 8: function_list[[k]](value) 7: withVisible(function_list[[k]](value)) 6: freduce(value, `_function_list`) 5: `_fseq`(`_lhs`) 4: eval(quote(`_fseq`(`_lhs`)), env, env) 3: eval(quote(`_fseq`(`_lhs`)), env, env) 2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env)) 1: data.frame(x = 1) %>% subset(y == 1) > subset(data.frame(x = 1), y == 1) traceback() > Error in...

Thanks for the answers, I?m aware of the ?.? option, just wanted to give a very simple example. But the lapply ??' parameter use has eluded me and thanks for enlightening me. What do you mean by messing up the call stack. As far as I understand it, piping should translate into same code as deep nesting. So then I only see a tiny downside for debugging here. No loss of time/space efficiency