Estimado Carlos:

Si quiero vectorizar el procedimiento anterior y lo hago de la siguiente
manera:

>cad.ena1 <- c("Durante los meses de enero y febrero principalmente","")
>cad.ena2 <- c("Durante los meses de enero y febrero principalmente a veces
diciembre","")
>cad.ena3 <- c("febrero / enero","")
>cad.ena <- rbind(cad.ena1, cad.ena2, cad.ena3)
>val.uno <- str_extract_all(cad.ena,
"enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>val.cad <- str_c(unlist(val.uno), collapse=" ")
>val.cad
[1] "enero febrero enero febrero diciembre febrero enero"

De la forma siguiente no me sirve pues precisaria un vector que quede:
[1] "enero febrero"
[2] "enero febrero diciembre"
[3] "enero febrero"

Saludos,

Sebastián


El 1 de marzo de 2013 10:40, Carlos Ortega <cof@qualityexcellence.es>escribió:
>
> Hola Sebastián,
>>
>> Esta otra alternativa es mucho más fácil...
>>
>> #------------------------------------------------
>> library(stringr)
>>
>> cad.ena <- "Durante los meses de enero y febrero principalmente"
>> cad.ena2 <- "Durante los meses de enero y febrero principalmente a veces
>> diciembre"
>>
>> val.uno <- str_extract_all(cad.ena,
>> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>> val.cad <- str_c(unlist(val.uno), collapse=" ")
>> val.cad
>>
>> val.dos <- str_extract_all(cad.ena2,
>> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>> val.cad2 <- str_c(unlist(val.dos), collapse=" ")
>> val.cad2
>>
>> #------------------------------------------------
>>
>> que produce estos resultados:
>>
>> > library(stringr)
>> >
>> > cad.ena <- "Durante los meses de enero y febrero principalmente"
>> > cad.ena2 <- "Durante los meses de enero y febrero principalmente a
>> veces diciembre"
>> >
>> > val.uno <- str_extract_all(cad.ena,
>> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>> > val.cad <- str_c(unlist(val.uno), collapse=" ")
>> > val.cad
>> *[1] "enero febrero"*
>> >
>> > val.dos <- str_extract_all(cad.ena2,
>> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>> > val.cad2 <- str_c(unlist(val.dos), collapse=" ")
>> > val.cad2
>> *[1] "enero febrero diciembre"*
>>
>>
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>

	[[alternative HTML version deleted]]

