Add unique hook into R