#' @export
print.ldat <- function(x, ..., messages = character(0)) {
l <- nrow(x)
cat("ldat with ", format(nrow(x), big.mark = ' '), " rows and ",
ncol(x), " columns\n", sep = "")
for (i in seq_along(messages)) cat(messages[i], "\n")
if (l < 25) {
r <- as.data.frame(x)
print(r)
} else {
# Selecr first set of rows
r1 <- lapply(x, function(d) as_rvec(lget(d, range = c(1, 10))))
r1 <- as.data.frame(r1, stringsAsFactors = FALSE)
rownames(r1) <- seq(1, 10)
# Select last set of rows
range <- l - c(10, 1) + 1
r2 <- lapply(x, function(d) as_rvec(lget(d, range = range)))
r2 <- as.data.frame(r2, stringsAsFactors = FALSE)
rownames(r2) <- seq(range[1], range[2])
# Create row with dots
r <- rbind(r1, NA)
rownames(r)[11] <- ":"
# Combine first and last set, insert row with :
r <- format(rbind(r, r2))
r[11, ] <- ":"
# and print
print(r)
}
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.