How to modify unexported object in a package

Question

My package (let\'s call it A) depends on another package B. I need to modify a function f in B that has a bug that is causing my package to fail. The problem is

Answer 1

As it turns out, I only had to remove the unlockBinding, assign and lockBinding calls.

bar <- function(x) x + 1
assignInNamespace("C_rf", bar, ns="stats", pos="package:stats")

stats:::C_rf
# function(x) x + 1

rf(3, 2, 2)
#Error in .Call(C_rf, n, df1, df2) : 
#  first argument must be a string (of length 1) or native symbol reference