R/prodFunc.R

In BenoitO/packTest: What the Package Does (One Line, Title Case)

#' Title
#'
#' @param a x
#' @param b x
#'
#' @return
#' @export
#'
#' @examples
prodFunc <- function(a, b){

  # x <- a
  # y <- b

  save(file = file.path("C:/Users/othoniel/Documents/zzz.Rdata"), list = c("a") )

  # rm(x)
  # rm(y)

  # e1 <- new.env()
  #
  # load(file = "C:/Users/othoniel/Documents/packTest_prodData.Rdata", e1)
  #
  # ax <- get(ls(e1)[1], e1)
  # by <- get(ls(e1)[2], e1)
  #
  # rm(e1)

  # print(ax)
  # print(by)

  # return(ax * by)

  return(a * b)

}