publicEnv <- publicEval({
private$hidden_var <- "I am hidden"
public_var <- "I am public"
}, parentEnv = parent.frame(), name = "MyEnvironment")
print(exists("public_var", envir = publicEnv)) # Should return TRUE
print(exists("hidden_var", envir = publicEnv)) # Should return FALSE
Run the code above in your browser using DataLab