opts_chunk$set(include = TRUE, echo = FALSE, eval = TRUE)
data <- params$data
data_quality <- quality(data = data, numeric_cutoff = -1, na_type = params$na_type) quality_info <- data_quality$global quality_output <- data_quality$table
The table has r quality_info$n_cols
columns and r quality_info$n_rows
rows (r quality_info$n_unique
are unique). There are r round(quality_info$n_missing / (quality_info$n_cols * quality_info$n_rows) * 100, digits = 0)
% missing values in the dataset.
if(!is.null(params$na_threshold)) { quality_output <- quality_output %>% mutate( `Missing values` = ifelse( `Percentage of missing values` <= params$na_threshold[1], cell_spec(`Missing values`, format = "html", color = 'green'), ifelse( `Percentage of missing values` > params$na_threshold[2], cell_spec(`Missing values`, format = "html", color = 'red'), cell_spec(`Missing values`, format = "html", color = 'orange') ) ), percent = `Percentage of missing values`, `Percentage of missing values` = ifelse( `Percentage of missing values` <= params$na_threshold[1], cell_spec(`Percentage of missing values`, format = "html", color = 'green'), ifelse( `Percentage of missing values` > params$na_threshold[2], cell_spec(`Percentage of missing values`, format = "html", color = 'red'), cell_spec(`Percentage of missing values`, format = "html", color = 'orange') ) ), `Percentage of missing values` = color_bar("lightblue", fun = function(x) x / 100)(percent) ) }
kable(x = quality_output, format = 'html', escape = FALSE, digits = 2, format.args = list(decimal.mark = ".", big.mark = " ")) %>% kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "center")
plotMissing(data, na_type = params$na_type, order = params$order)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.