From cbd2fd79add1107a22f36e20bf6b15eb20e3daaf Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Sat, 16 Dec 2017 18:54:56 -0200
Subject: [PATCH] Aprimora para exibir notas finais apos exame.
---
notas.Rmd | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/notas.Rmd b/notas.Rmd
index a003ce9..7cf4955 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,
--
GitLab