Wraps an export function as an S7 exporter object.
Examples
# Create a custom exporter
exp <- securetrace_exporter(export_fn = function(trace_list) {
cat("Exported:", trace_list$name, "\n")
})
exp@export_fn
#> function (trace_list)
#> {
#> cat("Exported:", trace_list$name, "\n")
#> }
#> <environment: 0x55a779b0e898>