fake namespace

gistfile1.txt

# define `makeNamespace` function
eval(body(loadNamespace)[[c(8, 4, 4)]])

ns <- makeNamespace("fake")

# define functions
ns$foo <- function() "foo!"
ns$bar <- function() "bar!"

# export some
namespaceExport(ns, "foo")
#> <environment: 0x0000000011af0248>

# `:::` works
fake:::foo()
#> [1] "foo!"
fake:::bar()
#> [1] "bar!"

# `::` works on unexported functions
fake::foo()
#> [1] "foo!"
fake::bar()
#> Error: 'bar' is not an exported object from 'namespace:fake'