# 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)
# }
Run the code above in your browser using DataCamp Workspace