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