Nothing
#' @export
summary.tbl_validation <- function(object, ...){
cf <- object
df <- as.data.frame(aggregate(cf))
s <- data.frame( name = names(cf$exprs)
, items = 0
, npass = 0
, nfail = 0 #ifelse(cf$working, 0, NA)
, nNA = 0 #ifelse(cf$working, 0, NA)
, warning = FALSE
, error = !cf$working
, expression = as.character(cf$exprs)
)
if (cf$sparse){
N <- as.data.frame(dplyr::count(cf$tbl))$n
s$items <- ifelse(cf$working, N, 0)
is_na <- is.na(df$fail)
nNA <- df[is_na, c("rule", "n")]
nfails <- df[!is_na, c("rule", "n")]
i <- match(nfails$rule, s$name)
s$nfail[i] <- nfails$n
i <- match(nNA$rule, s$name)
s$nNA[i] <- nNA$n
s$npass <- s$items - s$nfail - s$nNA
} else {
s$items[cf$working] <- df$npass + df$nfail + df$nNA
s$npass[cf$working] <- df$npass
s$nfail[cf$working] <- df$nfail
s$nNA[cf$working] <- df$nNA
}
s$items[!cf$record_based] <- pmin(s$items[!cf$record_based], 1)
s$npass[!cf$record_based] <- pmin(s$npass[!cf$record_based], 1)
s$nfail[!cf$record_based] <- pmin(s$nfail[!cf$record_based], 1)
s$nNA[!cf$record_based] <- pmin(s$nNA[!cf$record_based], 1)
s
}
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.