## code for reducing prof
dropform <- function(z) {
lapply(z, function(x) {
environment(attr(x,"formula")) <- NULL
x
})
}
rpt <- function(p, hdr) {
cat(hdr, capture.output(pryr::object_size(p)), "\n")
}
strip_profile <- function(p, quietly=FALSE) {
if (!quietly) {
rpt(p,"initial : ")
}
attr(p,"forward") <- dropform(attr(p,"forward"))
attr(p,"backward") <- dropform(attr(p,"backward"))
if (!quietly) {
rpt(p,"final : ")
}
return(p)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.