# bind shadow columns
aq_sh <- bind_shadow(airquality)
# print data
aq_sh
# remove shadow columns
unbind_shadow(aq_sh)
# remove data
unbind_data(aq_sh)
# errors when you don't use data with shadows
if (FALSE) {
unbind_data(airquality)
unbind_shadow(airquality)
}
Run the code above in your browser using DataLab