Aprimora para exibir notas finais apos exame.

parent be77ab41
......@@ -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,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment