## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
# winsorize_pupil <- function(x, prev_op, lower = 0.01, upper = 0.99) {
#   vec <- x[[prev_op]]
#   q <- quantile(vec, probs = c(lower, upper), na.rm = TRUE)
#   vec[vec < q[1]] <- q[1]
#   vec[vec > q[2]] <- q[2]
#   vec
# }

## ----eval=FALSE---------------------------------------------------------------
# #' Winsorize pupil values
# #'
# #' Applies winsorization to extreme pupil values within each block.
# #'
# #' @param eyeris An `eyeris` object created by [load_asc()].
# #' @param lower Lower quantile threshold. Default is 0.01.
# #' @param upper Upper quantile threshold. Default is 0.99.
# #' @param call_info A list of call information and parameters. If not provided,
# #'   it will be generated from the function call.
# #'
# #' @return Updated `eyeris` object with new winsorized pupil column.
# winsorize <- function(eyeris, lower = 0.01, upper = 0.99, call_info = NULL) {
#   # create call_info if not provided
#   call_info <- if (is.null(call_info)) {
#     list(
#       call_stack = match.call(),
#       parameters = list(lower = lower, upper = upper)
#     )
#   } else {
#     call_info
#   }
#   pipeline_handler(
#     eyeris,
#     winsorize_pupil,
#     "winsorize",
#     lower = lower,
#     upper = upper,
#     call_info = call_info
#   )
# }

## ----eval=FALSE---------------------------------------------------------------
# system.file("extdata", "memory.asc", package = "eyeris") |>
#   eyeris::load_asc(block = "auto") |>
#   eyeris::deblink(extend = 50) |>
#   winsorize()

## ----eval=FALSE---------------------------------------------------------------
# custom_function <- function(eyeris, param1, param2, call_info = NULL) {
#   # custom call_info with additional metadata
#   call_info <- if (is.null(call_info)) {
#     list(
#       call_stack = match.call(),
#       parameters = list(param1 = param1, param2 = param2),
#       metadata = list(
#         timestamp = Sys.time(),
#         version = "1.0.0",
#         description = "Custom processing step"
#       )
#     )
#   } else {
#     call_info
#   }
# 
#   pipeline_handler(
#     eyeris,
#     custom_pupil_function,
#     "custom",
#     param1 = param1,
#     param2 = param2,
#     call_info = call_info
#   )
# }

## -----------------------------------------------------------------------------
citation("eyeris")