StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POplyr summarize only calls global functions
text
Body
copied!<p>I'm trying to pass a function (weight.func) to a different function (wrapper) that calls ddply. I want ddply to use that function (weight.func) as part of its calculations. I get the output I want when weight.func is set 'globally' but not when it is passes as an anonymous function to the wrapper. </p> <p>Can I get ddply to do what I want? Here is a code example: </p> <pre><code>> print(sampleData) studentId problem part workerId rating 1 8001 problem26 partA A127R5QI5OGBIK 0.0 2 8001 problem26 partA A1FCLYRBAB430F 0.0 3 8001 problem26 partA A25FZQY34C6RVO 0.0 4 8001 problem26 partA A3G0MO562MHMZ3 0.5 5 8001 problem26 partA A3RB9ZOIUC3NWG 2.0 6 8001 problem26 partB A1FCLYRBAB430F 0.5 7 8001 problem26 partB A1XRDZKSJBWY8Q 0.5 8 8001 problem26 partB A22CRWMZUX7FFR 0.5 9 8001 problem26 partB A25FZQY34C6RVO 1.0 10 8001 problem26 partB A3G0MO562MHMZ3 0.5 11 8001 problem27 partA A1ET309DW6M2XA 2.0 12 8001 problem27 partA A1FCLYRBAB430F 0.0 13 8001 problem27 partA A22CRWMZUX7FFR 0.0 14 8001 problem27 partA A25FZQY34C6RVO 0.0 15 8001 problem27 partA A3G0MO562MHMZ3 0.0 16 8001 problem27 partB A1FCLYRBAB430F 1.0 17 8001 problem27 partB A22CRWMZUX7FFR 0.0 18 8001 problem27 partB A25FZQY34C6RVO 0.0 19 8001 problem27 partB A2U9676210WST5 0.0 20 8001 problem27 partB A3G0MO562MHMZ3 0.0 21 8002 problem26 partA A127R5QI5OGBIK 0.0 22 8002 problem26 partA A1FCLYRBAB430F 0.5 23 8002 problem26 partA A22CRWMZUX7FFR 0.0 24 8002 problem26 partA A25FZQY34C6RVO 2.0 25 8002 problem26 partA A3G0MO562MHMZ3 0.5 26 8002 problem26 partB A17EHJZNJGNRAN 2.0 27 8002 problem26 partB A1FCLYRBAB430F 0.0 28 8002 problem26 partB A2IPRDTE6B4TAB 0.0 29 8002 problem26 partB A3G0MO562MHMZ3 0.0 30 8002 problem26 partB A6SON3OS15XKA 0.0 31 8002 problem27 partA A1FCLYRBAB430F 0.0 32 8002 problem27 partA A25FZQY34C6RVO 0.0 33 8002 problem27 partA A2IPRDTE6B4TAB 0.0 34 8002 problem27 partA A2U9676210WST5 0.0 35 8002 problem27 partA A3G0MO562MHMZ3 0.0 36 8002 problem27 partB A1FCLYRBAB430F 0.0 37 8002 problem27 partB A1V52SSKROBV8E 2.0 38 8002 problem27 partB A25FZQY34C6RVO 2.0 39 8002 problem27 partB A2IPRDTE6B4TAB 0.0 40 8002 problem27 partB A3G0MO562MHMZ3 0.0 > > #Make a wrapper > wrapper <- function ( ratingData, weight.func ) { + print(weight.func) #prove that the function is being passed + ddply(ratingData, c('studentId','problem','part'), summarize, + sum.weights = sum ( weight.func(rating) )) + } > wrapper( sampleData, weight.func=function(x) (x+.001)^-1 ) function(x) (x+.001)^-1 Error in data.frame(sum.weights = sum(weight.func(rating))) : could not find function "weight.func" > > #'globally' declare weight.func > weight.func <- function(x) (x+.001)^-1 > wrapper( sampleData, weight.func=NULL ) NULL studentId problem part sum.weights 1 8001 problem26 partA 3002.495758 2 8001 problem26 partB 8.983033 3 8001 problem27 partA 4000.499750 4 8001 problem27 partB 4000.999001 5 8002 problem26 partA 2004.491766 6 8002 problem26 partB 4000.499750 7 8002 problem27 partA 5000.000000 8 8002 problem27 partB 3000.999500 </code></pre> <p>The second output is the goal. Any help appreciated! (Including a non plyr based way to accomplish the same task.)</p> <p>The example above is a toy example. It's the simplest case I could get to reproduce the behavior. </p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload