# \donttest{
shard_share_hook.MyModelClass <- function(x, ctx) {
list(
skip_slots = "cache",
force_share_paths = paste0(ctx$path, "@coefficients")
)
}
shard_share_hook.LazyData <- function(x, ctx) {
list(
rewrite = function(obj) {
obj$data <- as.matrix(obj$data)
obj
}
)
}
# }
Run the code above in your browser using DataLab