Configure data processing and transformation settings
Examples
if (interactive()) {
# Add a transformation hook to convert timestamps
timestamp_hook <- function(data, content_type, req) {
if (is.list(data) && !is.null(data$timestamp)) {
data$timestamp <- as.POSIXct(data$timestamp, origin = "1970-01-01")
}
return(data)
}
# Add a validation hook
validation_hook <- function(data, content_type, req) {
if (is.list(data) && is.null(data$user_id)) {
stop("user_id is required")
}
return(data)
}
payload_data_config(
transformation_hooks = list(timestamp_hook, validation_hook),
max_payload_size = 1024 * 1024 # 1MB limit
)
}