In dataquieR: Data Quality in Epidemiological Research

library(ggplot2)
if ((all(is.na(variable) || (length(variable) != 1))) || outputSlot != "") {
  stop("Not a meta_miss result")
}
all_res <- current_results[variable %in% resp_vars$resp_vars]
if (!chunk_error) {
  all_res <- all_res[(vapply(all_res, length, FUN.VALUE = integer(1)) > 0)]
}
have_a_result <- length(all_res) > 0

::: {style="height: 3em;"} :::

cat(sprintf(title, dQuote(dataquieR::prep_title_escape(variable, html = FALSE))))
cat("\n")
cat("\n#### Metadata\n")
cat("\n")
md <- report$meta_data[report$meta_data[[report$label_col]] == variable, , drop = FALSE]
md <- unlist(md[1, , drop = TRUE])
md <- cbind(`Variable Attribute` = names(md), `Attribute Value` = md)
rownames(md) <- NULL
util_html_table(md, filter = "top", options = list(pageLength = 4,
                                                 scrollCollapse = TRUE, scrollY = "75vh"), output_format = "RMD") # nrow(md)))

Completeness

util_html_table(subset(current_results[[1]]$SummaryTable, 
                     Variables == variable,
                     drop = FALSE), filter = "top", 
              options = list(scrollCollapse = TRUE, scrollY = "75vh"), output_format = "RMD")
# invisible(lapply(all_res, print, slot = "SummaryPlot"))

print(current_results[[1]]$ReportSummaryTable[current_results[[1]]$ReportSummaryTable$Variables == variable, , FALSE], dt = TRUE)

dataquieR documentation built on July 26, 2023, 6:10 p.m.