R/address.R

In HenrikBengtsson/recycle: Sustainable Recycling of R Objects

#' Gets the internal memory address of a variable
#'
#' @param var A variable
#' @return A character string
#'
#' @export
#' @useDynLib recycle
address <- function(var) {
  name <- substitute(var)
  expr <- substitute(.Internal(inspect(name)), list(name=name))

  info <- NULL; rm(list="info", inherits=FALSE) # To PLEASE CMD check
  con <- textConnection("info", open="w")
  on.exit(close(con))
  sink(con)
  eval(expr, envir=parent.frame())
  sink()

  info <- grep("@", info, value=TRUE)
  gsub("@", "", gsub(" .*", "", info[1]))
}