# NOT RUN {
if (interactive()) {
# Load example data
data("Pupilex3")
# Ensure the log file exists by running cleanup
# Writing log file to temporary folder for the example
dat <- clean_blink(Pupilex3, BlinkPadding = c(100, 100), Delta = 5,
MaxValueRun = 5, NAsAroundRun = c(2,2),
LogFile = paste0(tempdir(),"/BlinkCleanupLog.rds"))
# Read log file from temporary folder
verify_cleanup_app(dat, LogFile = paste0(tempdir(),"/BlinkCleanupLog.rds"))
}
# Please see the vignettes for detailed example usage.
# vignette("PupilPre_Cleanup", package="PupilPre")
# }
Run the code above in your browser using DataLab