Ad SO #52974000

rm-obj.R

rm_tbl_4 <- function(tbl, env) {
  tbl = deparse(substitute(tbl))
  rm(list = tbl, pos = env)
}

fun_a <- function(dat_tbl) {
  fun_b(dat_tbl)
}

fun_b <- function(data_table) {
  rm_tbl_4(data_table, environment())
}

dt <- data.table(a = 1:3, b = 2:4)
fun_a(dt)
dt

rm_tbl_4 <- function(tbl, env) {
  print(paste("rm_tb", address(tbl)))
  rm(list = tbl, pos = env)
}

fun_b <- function(data_table) {
  print(paste("fun_b", address(data_table)))
  rm_tbl_4(data_table, ".GlobalEnv")
}

fun_a <- function(dat_tbl) {
  dat_tbl = deparse(substitute(dat_tbl))
  print(paste("fun_a", address(dt)))
  fun_b(dat_tbl)
}

dt <- data.table(a = 1:3, b = 2:4)
address(dt)
fun_a(dt)
dt