[R-br] Modo mais inteligente?(STRING)

[Marcos Silva]

Não sei se é mais inteligênte, mas tem menos coisa escrita... :)

unlist(lapply(strsplit(vet, "\\."), "[", 1))


Em 28 de setembro de 2012 08:50, Ivan Bezerra Allaman <
ivanalaman em yahoo.com.br> escreveu:

>  Bom dia senhores!!
>
> Suponha que eu tenha o seguinte vetor:
>
> vet <- paste(seq(1:12),1:5,sep='.')
>
> Eu terei sempre um 'ponto' e um número a direita de cada elemento do
> vetor. O meu objetivo, é pegar exatamente qualquer
> coisa que esteja à esquerda deste ponto. Então fiz:
>
> unlist(lapply(strsplit(vet,split='[[:punct:]][[:alnum:]]'),function(x)sample(x[1])))
>
>
> Tem algum modo mais inteligente?
>
> Desde já, grato!
> *
> *
> \begin{signature}
> <<>>=
> Prof. Dr. Ivan Bezerra Allaman
> Universidade Estadual de Santa Cruz
> Departamento de Ciências Exatas e Tecnológicas
> Ilhéus/BA - Brasil
> Fone: +55 73 3680-5596
> E-mail: ivanalaman em yahoo.com.br/ivanalaman em gmail.com
> @
> \end{signature}
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>



-- 
Marcos F. Silva
http://sites.google.com/site/marcosfs2006
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120928/de248441/attachment.html>