Bernado, Veja se isso ajuda. Basicamente, separamos o texto pelo '. ', transforma a primeira letra em minúsculo e depois concatena o texto novamente. ### texto <- unlist(strsplit('Deus abencoou Noe e seus filhos, e lhes disse: "Sede fecundos, multiplicai-vos, enchei a terra. Sede o medo e o pavor de todos os animais da terra e de todas as aves do ceu, como de tudo o que se move na terra e de todos os peixes do mar: eles sao entregues nas vossas maos. Tudo o que se move e possui a vida vos servira de alimento, tudo isso eu vos dou, como vos dei a verdura das plantas. Mas nao comereis a carne com sua alma, isto e, o sangue. Pedirei contas porem, do sangue de cada um de vos. Pedirei contas a todos os animais e ao homem, aos homens entre si, eu pedirei contas da alma do homem. Quem derrama o sangue do homem pelo homem terra seu sangue derramado. Pois a imagem de Deus o homem foi feito. Quanto a vos, sede fecundos, multiplicai-vos, povoai a terra e dominai-a.', ". ", fixed = TRUE)) substring(texto, 1) <- c(tolower(substring(texto, 1,1))) cat(texto, sep=". ") ### Aqui fica falho, quando depois do '.' vem um nome próprio. Abraços *Att,Gerson R. Primo Jr* Em 25 de março de 2014 08:48, Rodrigo Coster <rcoster@gmail.com> escreveu:
Bernado,
note que ao escrever 'teste' no R, aparece "teste" (ele troca as aspas simples por dupla). Se o texto tem aspas dupla dentro ('teste "teste'), vai aparecer a \ antes dela para diferenciar aquela aspa - que faz parte do texto - das aspas que marcam inicio e fim dela. Mas isso é só no R, ao exportar para fora a \ (e as " do inicio e fim ) somem
2014-03-25 6:19 GMT-03:00 Bernardo Rangel Tura <tura@centroin.com.br>:
On 03/24/2014 08:42 PM, jimmy wrote:
On Mon, Mar 24, 2014 at 04:29:47PM -0300, Bernardo Rangel Tura wrote: [...]
jimmy,
Nesta caso a comando ficaria assim: gsub('(?<=\\. )([:upper:])', '\\L\\1', texto, perl =TRUE) Mas aqui não funcionou ... Onde está o meu erro ?
O erro aí foi semântico. Uma classe posix também é uma lista e precisa ser declarada dentro dos colchetes, ficando '[[:upper:]]', assim:
gsub('(?<=\\. )([[:upper:]])', '\\L\\1', texto, perl = TRUE )
Agora entendi ! Muito obrigado Jimmy.
Porém ainda tem um problema neste exemplo, existe uma parte que deu erro:
: "Sede fecundos,
ficou
: \"Sede fecundos
Você sabe dizer porque?
[]s Tura
_______________________________________________ R-br mailing list R-br@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.
_______________________________________________ R-br mailing list R-br@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.