R包提供的覆盖功能

Question

关于如何重写下面的包提供的功能已经存在一个很好的问题 Override function in R package

以下代码块可以完美地工作，并且完全可以实现我想要的功能。我只想了解它的作用及其必要性：

tmpfun <- get("ctree", envir = asNamespace("partykit"))
environment(ctree) <- environment(tmpfun)
attributes(ctree) <- attributes(tmpfun)  # don't know if this is really needed
assignInNamespace("ctree", ctree, ns="partykit")

谁能给我一个提示，为什么最后一行

assignInNamespace("ctree", ctree, ns="partykit")

不足以覆盖该功能吗？

为什么上面的代码是必需的，它有什么作用？