diff --git a/notas.Rmd b/notas.Rmd index a003ce98d7fbfd1d2ef8652e18690304c9abd2ac..7cf49551710e1b7c9d62852da96dabe36b3c0363 100644 --- a/notas.Rmd +++ b/notas.Rmd @@ -184,7 +184,7 @@ if (!is.null(nt$MF2)) { #----------------------------------------------------------------------- -v <- c("GRR", u, c("M. parcial", "M. final")) +v <- c("GRR", u, c("M. parcial", "E", "M. final")) v <- v[v %in% names(nt)] # nt <- plyr::arrange(nt, -mp) @@ -242,12 +242,20 @@ dt <- datatable(data = subset(nt, select = v), lengthMenu = NULL)) dt <- formatStyle(table = dt, - columns = !(v %in% c("GRR", "F")), + columns = !(v %in% c("Nome", "GRR", "F", "M. final")), color = styleInterval(cuts = c(39.999999, 69.999999), values = c("#ff3300", "gray", "#3333ff"))) +if ("E" %in% v) { + dt <- formatStyle(table = dt, + columns = (v %in% c("M. final")), + color = styleInterval(cuts = c(49.999999), + values = c("#ff3300", + "#3333ff"))) +} + is.decimal <- function(x) is.numeric(x) && !is.integer(x) formatRound(table = dt,