From 5da3560d0f3e0eb813d896cba33961809166f55f Mon Sep 17 00:00:00 2001 From: Dillon Hammill Date: Wed, 6 Nov 2024 14:11:54 +1100 Subject: [PATCH] ODC-187 remove old code from .gating_adaptor(). --- R/wrapper-functions.R | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/R/wrapper-functions.R b/R/wrapper-functions.R index b5b08f0..e090020 100644 --- a/R/wrapper-functions.R +++ b/R/wrapper-functions.R @@ -88,21 +88,20 @@ if(!.isRegistered(gFunc)){ stop(sprintf("Can't gate using unregistered method %s",gFunc)) } - thisCall <- substitute(f(fr = fr - , pp_res = pp_res - , channels = channels - ) - ,list(f = as.symbol(gFunc)) - ) - filterRes <- try(do.call(gFunc, c(list(fr = fr - , pp_res = pp_res - , channels = channels - ) - , gFunc_args - ) - ) - , silent = TRUE + filterRes <- try( + do.call( + gFunc, + c( + list( + fr = fr, + pp_res = pp_res, + channels = channels + ), + gFunc_args ) + ), + silent = TRUE + ) }