x <- c(1, 2, 3)
# tracemem() reports the address; a copy is made on modify
addr <- tracemem(x)
print(is.character(addr))
y <- x
y[1] <- 10
untracemem(x)
print(y)

observe when a copy happens