thisCall statement never used in .gating_adaptor()

[kforner]

cf

openCyto/R/wrapper-functions.R

Line 88 in 0919202

thisCall <- substitute(f(fr = fr

in function .gating_adaptor, this code seems to never be used:

      thisCall <- substitute(f(fr = fr
                                , pp_res = pp_res
                                , channels = channels
                              )
                              ,list(f = as.symbol(gFunc))

[djhammill]

Thanks for reporting, I have removed the extra code here: #265