Dear all, I am looking for some procedure to apply 'ifelse' condition on function. I have created an alternative to lapply() function with exactly same set of arguments named lapply1(), however with different internal codes. Therefore I want something like, if (some condition) then call lapply1() otherwise lapply() function. Ofcourse I can create a complete if()... else()... like of coding however wondering something may be better available because the arguments are all common. Thanks for your help.
You can use ifelse() if you want... x <- 1:10 ifelse(x < 5, mean(x), length(x)) Although I do not really see how you are hoping to improve on if (condition) lapply1() else lapply(). Josh On Sat, Jul 30, 2011 at 12:56 PM, Megh Dal <megh700004 at yahoo.com> wrote:> Dear all, I am looking for some procedure to apply 'ifelse' condition on function. I have created an alternative to lapply() function with exactly same set of arguments named lapply1(), however with different internal codes. > > Therefore I want something like, if (some condition) then call lapply1() otherwise lapply() function. Ofcourse I can create a complete if()... else()... like of coding however wondering something may be better available because the arguments are all common. > > Thanks for your help. > > ______________________________________________ > R-help at r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. >-- Joshua Wiley Ph.D. Student, Health Psychology University of California, Los Angeles https://joshuawiley.com/
On 11-07-30 3:56 PM, Megh Dal wrote:> Dear all, I am looking for some procedure to apply 'ifelse' condition on function. I have created an alternative to lapply() function with exactly same set of arguments named lapply1(), however with different internal codes. > > Therefore I want something like, if (some condition) then call lapply1() otherwise lapply() function. Ofcourse I can create a complete if()... else()... like of coding however wondering something may be better available because the arguments are all common.Write it like this: if (condition) f <- lapply1 else f <- lapply f(args) or even shorter: f <- if (condition) lapply1 else lapply f(args) or shortest: (if (condition) lapply1 else lapply)(args) Duncan Murdoch