1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
colored_column <- function(x, colname, delimiter = "_imp") {
values <- x[[colname]]
imp <- x[[paste0(colname, delimiter)]]
values[imp] <- paste("<b><font color = 'orange'>", values[imp], "</font></b>")
values[is.na(values)] <- paste(
"<font color = 'red'>", values[is.na(values)], "</font>"
)
values
}
#' create table with highlighted missings/imputations
#'
#' Create a `reactable` table that highlights missing values and imputed values
#' with the same colors as [histMiss()]
#'
#' @inheritParams histMiss
#' @examples
#' data(tao)
#' x_IMPUTED <- kNN(tao[, c("Air.Temp", "Humidity")])
#' tableMiss(x_IMPUTED[105:114, ])
#' x_IMPUTED[106, 2] <- NA
#' x_IMPUTED[105, 1] <- NA
#' x_IMPUTED[107, "Humidity_imp"] <- TRUE
#' tableMiss(x_IMPUTED[105:114, ])
#' @export
tableMiss <- function(x, delimiter = "_imp") {
names <- names(x)
imputed_cols <- names[grepl("imp", names)]
imputed_cols <- substr(imputed_cols, 1, nchar(imputed_cols) - 4)
for (col in imputed_cols)
x[col] <- colored_column(x, col, delimiter)
reactable::reactable(
x[, !grepl("imp", names)],
defaultColDef = reactable::colDef(html = TRUE), highlight = TRUE
)
}
|
