# Get the size of the largest file in a dir
max_file_size <- function(top_dir,
recursive = TRUE) {
files <- list.files(top_dir,
full.names = TRUE,
recursive = recursive
)
inf <- file.info(files)
messager(paste("File size info (Mb) for", length(files), "files."))
summary(inf$size / 1e6)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.