R/yyy.C.R

'.Cursa' <- function(...) {
   if (T) ## if .isPackageInUse()
      return(.C(...))
   print("without package")
  ## without package registration:
   arglist <- list(...)
  # message(paste(".C:",arglist[[1]]))
   if (.isPackageInUse())
      arglist$PACKAGE <- "ursa"
   do.call(".C",arglist)
}
nplatonov/ursa documentation built on Feb. 2, 2024, 4:08 a.m.