Nothing
addAttr <- function(to, what, name) {
attr(to, name) <- what
to
}
getter <- function(.x, .wrapper = identity) {
memoise::memoise(function() {
.wrapper(.x)
})
}
storage <- module({
reformat <- function(storage) {
.iter <- function(ind) {
lapply(storage, function(.) attr(.[[ind]], "history")) %>%
{ lapply(seq_along(.), function(i) cbind(.[[i]], i)) } %>% # add iteration
do.call(what = rbind)
}
lapply(seq_along(storage[[1]]), .iter)
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.