# NOT RUN {
library(dplyr)
library(observer)
df <- ggplot2::diamonds <!-- %>% -->
mutate(depth2 = 100*2*z/(x+y)) <!-- %>% -->
observe_if(abs(depth-depth2) < 1)
observations(df)
df <!-- %>% -->
stick_to(observations) <!-- %@>% -->
mutate(Id = 2) <!-- %@>% -->
select(Id, Status) <!-- %>% -->
unstick()
observations(df)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab