hide-source

active-binding.R

e <- new.env()

makeActiveBinding("private_f", function(x) {
  if (missing(x)) {
    NULL
  } else {
    sum <- 0
    for (i in 1:x) {
      sum <- sum + i
    }
    e$res <- sum
  }
}, e)

public_f <- function(x) {
  e$private_f <- x
  e$res
}

hide_src.R

hide_src <- function(f) {
  env <- attr(attr(f, "srcref"), "srcfile")
  env$lines <- ""
  env$filename <- ""
  env$original$lines <- ""
  f
}

package.R

secure <- function(f) {
  e <- new.env(parent = environment(f))
  eval(substitute(makeActiveBinding("private", function(x) {
    if (missing(x)) NULL
    else e$result <<- f
  }, e), list(f = body(f))))
  rm(f)
  function(x) {
    e$private <- x
    e$result
  }
}

#' ftest
#' @name ftest
#' @export
NULL

delayedAssign("ftest", secure(function(x) x + 100), environment(), environment())

secret.R

secret <- function(expr) {
  expr <- substitute(expr)
  e <- new.env(parent = parent.frame())
  e$result <- NULL
  private <- function(x) {}
  body(private) <- substitute({
    if (missing(x)) NULL
    else result <<- expr
  }, list(expr = expr))
  environment(private) <- e
  makeActiveBinding("private", private, e)
  lockEnvironment(e)
  public <- function(x) {
    private <<- x
    result
  }
  environment(public) <- e
  rm(expr, private, e)
  public
}

secure.R

secure <- function(f) {
  e <- new.env(parent = environment(f))
  eval(substitute(makeActiveBinding("private", function(x) {
    if (missing(x)) NULL
    else e$result <- f
  }, e), list(f = body(f))))
  rm(f)
  function(x) {
    e$private <- x
    e$result
  }
}