Nothing
#' Data report for datasets with 'mdate' variables
#'
#' Create a properly formatted data report for datasets which contain 'mdate'
#' class objects, alongside other object classes.
#' @param data A `{tibble}` or a `{data.frame}`.
#' @return A data report of class 'mreport'.
#' @importFrom dplyr %>%
#' @importFrom stats na.omit
#' @details 'mreport' displays the variable's name,
#' the variable type, the number of observations per variable,
#' the number of missing observations for variable,
#' and the percentage of missing observations in variable.
#' @examples
#' mreport(battles)
#' @export
mreport <- function(data) UseMethod("mreport")
#' @export
mreport.default <- function(data) {
if (!is.data.frame(data)) {
stop("Data must be a `data.frame` or `tibble`.")
}
rows <- nrow(data)
cols <- ncol(data)
varnames <- names(data)
datatype <- unlist(lapply(data, class))
counts <- unlist(lapply(data, length))
mvalues <- unlist(lapply(data, function(z) sum(is.na(z))))
mvaluesper <- round((mvalues / counts) * 100, 2)
result <- list(Rows = rows,
Columns = cols,
Variables = varnames,
Types = datatype,
Count = counts,
Missing = mvalues,
MissingPer = mvaluesper)
class(result) <- "mreport"
return(result)
}
#' @export
print.mreport <- function(x, ...) {
columns <- c(" Column Name ", " Data Type ", " Observations ",
" Missing ", " Missing (%) ")
len_col <- as.vector(unlist(lapply(columns, nchar)))
x$Types <- lapply(x$Types, paste, collapse = ", ")
lengths <- list(x$Variables, x$Types, x$Count, x$Missing, x$MissingPer)
n <- length(columns)
nlist <- list()
for (i in seq_len(n)) {
nlist[[i]] <- max(len_col[i], max(unlist(lapply(lengths[[i]], nchar))))
}
clengths <- unlist(nlist)
dash <- sum(clengths) + 6
cat(rep("-", dash), sep = "")
cat("\n|")
for (i in seq_len(n)) {
cat(format(columns[i], width = clengths[i], justify = "centre"),
"|", sep = "")
}
cat("\n", rep("-", dash), sep = "")
cat("\n")
for (i in seq_len(x$Columns)) {
cat("|", format(x$Variables[i], width = clengths[1], justify = "centre"), "|",
format(x$Types[i], width = clengths[2], justify = "centre"), "|",
format(x$Count[i], width = clengths[3], justify = "centre"), "|",
format(as.character(x$Missing[i]), width = clengths[4], justify = "centre"), "|",
format(as.character(x$MissingPer[i]), width = clengths[5], justify = "centre"),
"|\n", sep = "")
}
cat(rep("-", dash), sep = "")
cat("\n\n")
}
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.