#' @title Dimension Table
#' @description Document dimension mapping table.
#' @param ... Arguments to be passed
#' @return Document dimension table
#' @export
#' @author Leo Lahti \email{leo.lahti@@iki.fi}
#' @references See citation("bibliographica")
#' @examples dimension_table()
#' @keywords utilities
dimension_table <- function (...) {
f <- system.file("extdata/documentdimensions.csv", package = "bibliographica")
dd <- read.csv(f, header = TRUE, sep = ",")# [-1,]
colnames(dd) <- gsub("^X", "", colnames(dd))
colnames(dd)[[1]] <- "height"
colnames(dd) <- gsub("NA.", "NA", colnames(dd))
dd <- dd[-1,]
dd <- apply(dd, 2, as.character)
# Add 1to
ss <- sheet_sizes()
dd <- cbind(dd, "1to" = rep("x", nrow(dd)))
row1 <- rep("x", ncol(dd))
dd <- rbind(row1, dd)
dd[, "height"] <- as.character(dd[, "height"])
dd[,"NA"] <- as.character(dd[,"NA"])
dd[,"1to"] <- as.character(dd[,"1to"])
inds <- ss$gatherings == "1to"
dd[1, "height"] <- ss[inds, "height"]
dd[1, "NA"] <- ss[inds, "width"]
dd[1, "1to"] <- ss[inds, "width"]
# Reorder columns
rownames(dd) <- NULL
dd <- as.data.frame(dd, stringsAsFactors = FALSE)
dd
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.