Edita o nome para exibir na tabela.

notas.Rmd

@@ -38,6 +38,14 @@ nt <- read.xls("/home/walmes/Dropbox/Ensino/ce089-2017-02/notas.xls",
                encoding = "latin1")
 str(nt)
 
+nt$Nome <- paste(
+    sub(pattern = "^(\\w+) .*$",
+        replacement = "\\1",
+        x = nt$Nome),
+    sub(pattern = "^\\w.* (\\w+)$",
+        replacement = "\\1",
+        x = nt$Nome))
+
 #-----------------------------------------------------------------------
 # Editação da tabela.