nao da' pra ser um one-liner... mas algo como o seguinte (assumindo
que os seus dados estejam num data.frame chamado myDat):
p1 = gsub('^(\\w+)\\s+.*\\s+(\\w+)$', '\\1\\2', myDat$NOME_PESSOA)
p2 = paste('DN', myDat$DTA_NASC_PESSOA, sep='')
p3a = gsub('^(\\w+)\\s.*\\s(\\w+)$', '\\1\\2',
Tente assim:
library(gsubfn)
foo - function(x, ...) {
sprintf(gsub(^(\\w+)\\s+.*\\s+(\\w+$), \\1\\2%s, x),
sapply(strapply(d$NOM_PESSOA, '\\s+(.)'),
function(.x)paste(head(.x, n = -1), collapse = '')))
}
sprintf('%s%s%s', foo(d$NOM_PESSOA), d$DTA_NASC_PESSOA,
*Aproveitando o comentário do Benilton, **isso se o henrique nao chegar
humilhando ;)*
*
*
*de que forma Henrique você adquiriu este know-how? O que você recomenda
para leitura e apriomoramento?*
*
*
*
*
*
*Atenciosamente,
Leandro Marino
http://www.leandromarino.com.br (Fotógrafo)