cachedCall&Assign for

CCA.R

library(cacheflow)  # https://github.com/alekrutkowski/cacheflow

CCA <- function(FUN,...)
## cachedCall&Assign
## A macro to avoid repetitive typing like
## myX_result <- cachedCall(myX_function, ...)
## creates and object `.myX` to avoid overwriting function `myX`
## that still may be used in the subsequent cachedCall/CCA calls
## i.e.
## CCA(myX, ...)
## is an equivalent of
## .myX <- cachedCall(myX, ...)
    assign(paste0('.',deparse(substitute(FUN))),
           eval(bquote(cachedCall(.(substitute(FUN)),...))),
           envir=parent.frame())