# NOT RUN {
x <- 1
problematic <- latch.e(x, e("Not right"))
is.e(problematic)
do_sth_with_x <- function(x){
resolve(x)
x + 1
}
if(interactive()){
do_sth_with_x(x)
do_sth_with_x(problematic)
}
unlatch(problematic)
# }
Run the code above in your browser using DataLab