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

[Benilton Carvalho]

gsub('^.*\\.(.*)$', '\\1', vet)

2012/9/28 Marcos Silva <marcosfs2006 em gmail.com>:
> 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
>
> _______________________________________________
> 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.