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