Inclui nota dos trabalhos e descrição da média.

notas.Rmd

@@ -66,7 +66,7 @@ if (length(index$s) >= 4) {
 }
 
 # Pesos de cada forma de avaliação.
-pesos <- c(s = 0.7, t = 0.3)
+pesos <- c(s = 0.7, p = 0, t = 0.3)
 
 # Colunas de notas presentes.
 u <- unlist(index[1:4])
@@ -89,8 +89,6 @@ if (length(index$s) > 1) {
                    })
 }
 
-(5 * 100 + 95)/6
-
 # Calcula a média nas provas.
 if (length(index$p)) {
     nt$mp <- apply(X = cbind(nt[, c(index$p)]),
@@ -121,7 +119,7 @@ pesos <- pesos[a]
 if (length(pesos)) {
     # Reescala os pesos.
     pesos <- pesos/sum(pesos)
-    stopifnot(sum(pesos) == 1)
+    stopifnot(as.integer(sum(pesos)) == 1L)
     nt$MF1 <- c(as.matrix(nt[, j]) %*% cbind(pesos))
 }
 
@@ -186,7 +184,7 @@ v <- v[v %in% names(nt)]
 
 # Legenda da tabela.
 cap <-
-    "Notas nas avaliações (S: sabatina, B: sabatina bonus, T: trabalho) ordenadas pelo GRR. Valores entre 0 e 100."
+    "Notas nas avaliações (S: sabatina, B: sabatina bonus, T: trabalho) ordenadas pelo GRR. Valores entre 0 e 100.*"
 ```
 
 ```{r, eval = FALSE, echo = FALSE, results = "asis"}
@@ -198,6 +196,24 @@ x <- knitr::kable(subset(nt, select = v),
 cat(gsub("\\bNA\\b", "--", x), sep = "\n")
 ```
 
+<style type="text/css">
+/* ATTENTION: propriedades da tabela do DT::datatable() */
+table.dataTable thead th,
+table.dataTable thead td {
+    padding: 3px 6px;
+}
+
+table.dataTable tbody th,
+table.dataTable tbody td {
+    padding: 1px 6px;
+}
+
+table.dataTable th.dt-right,
+table.dataTable td.dt-right {
+    text-align: center;
+}
+</style>
+
 ```{r, echo = FALSE, results = "asis"}
 # browseURL("http://datatables.net/reference/option/")
 # http://rstudio.github.io/DT/functions.html
@@ -212,14 +228,14 @@ dt <- datatable(data = subset(nt, select = v),
                 autoHideNavigation = TRUE,
                 escape = FALSE,
                 options = list(
-                    searching = TRUE,
+                    searching = FALSE,
                     paging = FALSE,
                     pageLength = NULL,
               lengthMenu = NULL))
 
 dt <- formatStyle(table = dt,
                   columns = !(v %in% c("GRR", "F")),
-                  color = styleInterval(cuts = c(40, 70),
+                  color = styleInterval(cuts = c(39.999999, 69.999999),
                                         values = c("#ff3300",
                                                    "gray",
                                                    "#3333ff")))
@@ -227,6 +243,13 @@ dt <- formatStyle(table = dt,
 is.decimal <- function(x) is.numeric(x) && !is.integer(x)
 
 formatRound(table = dt,
-            columns = sapply(dt$x$data, is.decimal),
+            columns = sapply(dt$x$data, FUN = is.decimal),
             digits = 1)
 ```
+
+\* A média final é uma média ponderada da nota das sabatinas (peso 0.7)
+e dos trabalhos (peso 0.3).  Foram realizadas 9 sabatinas e 2 questões
+bonus. Destas 11 notas, apenas as 6 maiores ($\left\lfloor 0.75 \times 9
+\right\rfloor = 6$) foram consideradas para compor o desempenho nas
+sabatinas.  A nota do T2 foi lançada como 70 para todos os alunos apenas
+para fins de simulação.  Em breve, a nota correta será lançada.