Nothing
#' Retrieve dimensions
#' @description Retrieves the maximum and minimum number of rows and columns in
#' the Smallset Timeline.
#' @noRd
retrieve_dimensions <- function(tabs) {
rows <- numeric()
cols <- numeric()
# Find number of rows/columns in each table
for (i in 1:length(tabs)) {
rows <- c(rows, nrow(tabs[[i]][[1]]))
cols <- c(cols, ncol(tabs[[i]][[1]]))
}
# Return dimensions of widest/longest tables
return(c(max(cols), max(rows)))
}
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.