oo <- options(onetime.dir = tempdir(check = TRUE))
id <- sample(10000L, 1)
for (n in 1:3) {
onetime_rlang_warn(c("rlang-style warning", i = "Extra info"), id = id)
}
onetime_reset(id = id)
options(oo)
Run the code above in your browser using DataLab