From b2b3f8262431f47840c42d3b6e8eb71d3b2fa05d Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Mon, 4 Dec 2017 20:10:18 -0200
Subject: [PATCH] Edita o nome para exibir na tabela.

---
 notas.Rmd | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/notas.Rmd b/notas.Rmd
index 0da8b90..a003ce9 100644
--- a/notas.Rmd
+++ b/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.
 
-- 
GitLab