[R-br] Função para quebra de linha em título

Quinta Março 17 09:10:38 BRT 2011

Olá Benilton,

Como havia dito, não era o melhor computacional. Esta última versão é bem
melhor. Valeu !

[]'s

Márcio Nicolau

Em 17 de março de 2011 08:57, Benilton Carvalho
<beniltoncarvalho em gmail.com>escreveu:

> Agora, que penso a respeito dessa funcao, ela tbm pode ser uma combinacao
> de paste() e strwrap()
>
> f = function(txt, width=30)
> paste(strwrap(txt, width=width), sep='', collapse='\n')
>
> titulo = 'titulo longo que eu quero quebrar e por num grafico'
> f(titulo)
>
> b
>
> 2011/3/17 Fabio Mathias Corrêa <fabio.ufla em yahoo.com.br>
>
>>
>>
>>             Fábio Mathias Corrêa
>>         Departamento de Estatística
>>    Universidade Estadual de Santa Cruz
>>
>>
>>
>> Tel.: 73-3680-5076
>> Cel.: 73-9991-8155
>>
>>
>> ----- Mensagem encaminhada ----
>> *De:* Marcio Nicolau <marcio.nicolau em gmail.com>
>> *Para:* R_STAT em yahoogrupos.com.br
>> *Enviadas:* Sábado, 25 de Outubro de 2008 19:47:08
>> *Assunto:* [R_STAT] Função para quebra de linha em título
>>
>>   Prezados,
>>
>> A algum tempo, questionei na lista sobre a existência de uma função
>> para quebra de linha
>> automática para títulos de gráficos.
>>
>> Após a sugestão do Benilton (função gsub), segue abaixo o código...
>> caso necessitem.
>>
>> ## Pre-Processa titulos
>>
>> pretitulo <- function(orig, cut=55) {
>> nparts = ceiling(nchar( orig) / cut)
>> cuts = c(1,1:nparts * cut)
>> spt = strsplit(orig, "\\s")[[1] ]
>> cs = cumsum(nchar( spt))
>>
>> ids <- matrix(FALSE, nparts,length( nchar(spt) ))
>> for(i in 2:length(cuts) ) {
>> ids[i-1,] <- (cs >= cuts[i-1] & cs < cuts[i])
>> }
>>
>> ch <- vector("character" , nparts)
>> for(i in 1:nparts) {
>> ch[[i]] <- paste(spt[ids[ i,]],collapse = " ")
>> }
>> pretitulo <- paste(ch,collapse= "\n")
>> }
>>
>> Não é o melhor, computacionalmente falando, mas funciona :)
>>
>> Abraços
>>
>> Marcio Nicolau
>> marcio.nicolau@ gmail.com <marcio.nicolau%40gmail.com>
>>
>>  __._,_.___
>>  Mensagens neste tópico
>> <http://br.groups.yahoo.com/group/R_STAT/message/4566;_ylc=X3oDMTM1bWdhMjI0BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY2BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTIyNDk3MTM0MgR0cGNJZAM0NTY2>(
>> 1)  Responder (através da web)
>> <http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJxdThtbms4BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NTY2BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTIyNDk3MTM0Mg--?act=reply&messageNum=4566>| Adicionar
>> um novo tópico
>> <http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJmM2c4Y2RiBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyMjQ5NzEzNDI->
>>  Mensagens<http://br.groups.yahoo.com/group/R_STAT/messages;_ylc=X3oDMTJmNjd0YzdyBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyMjQ5NzEzNDI->|
>> Arquivos<http://br.groups.yahoo.com/group/R_STAT/files;_ylc=X3oDMTJnbzdydDE5BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjI0OTcxMzQy>|
>> Fotos<http://br.groups.yahoo.com/group/R_STAT/photos;_ylc=X3oDMTJmaGd2OWc3BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyMjQ5NzEzNDI->|
>> Links<http://br.groups.yahoo.com/group/R_STAT/links;_ylc=X3oDMTJnOWFlc2cwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjI0OTcxMzQy>| Banco
>> de dados<http://br.groups.yahoo.com/group/R_STAT/database;_ylc=X3oDMTJkc3Q2M3ZxBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjI0OTcxMzQy>|
>> Enquetes<http://br.groups.yahoo.com/group/R_STAT/polls;_ylc=X3oDMTJnZjg2bzZuBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjI0OTcxMzQy>
>>   [image: Yahoo! Grupos]<http://br.groups.yahoo.com/;_ylc=X3oDMTJlYzdwMTgwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTIyNDk3MTM0Mg-->
>> Alterar configurações via web<http://br.groups.yahoo.com/group/R_STAT/join;_ylc=X3oDMTJnZzd1bzRyBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNzdG5ncwRzdGltZQMxMjI0OTcxMzQy>(Requer Yahoo! ID)
>> Alterar configurações via e-mail: Alterar recebimento para lista diária
>> de mensagens<R_STAT-digest em yahoogrupos.com.br?subject=%20Recebimento%20de%20e-mail:%20Lista%20de%20mensagens>| Alterar
>> formato para o tradicional<R_STAT-traditional em yahoogrupos.com.br?subject=Alterar%20formato%20de%20distribui%C3%A7%C3%A3o:%20Tradicional>
>>  Visite seu Grupo
>> <http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJlNGVuZmZ0BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNocGYEc3RpbWUDMTIyNDk3MTM0Mg-->| Termos
>> de uso do Yahoo! Grupos <http://br.yahoo.com/info/utos.html> | Sair do
>> grupo <R_STAT-unsubscribe em yahoogrupos.com.br?subject=>
>>    Atividade nos últimos dias
>>
>>    -  8
>>    Novos usuários<http://br.groups.yahoo.com/group/R_STAT/members;_ylc=X3oDMTJnY2J2Yjk5BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMjI0OTcxMzQy>
>>
>>  Visite seu Grupo
>> <http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJmbnJnNzBjBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEyMjQ5NzEzNDI->
>>  Yahoo! Mail
>>
>> Conecte-se ao mundo<http://us.lrd.yahoo.com/_ylc=X3oDMTJtdHA2bzd0BF9TAzk3NDkwNDM3BF9wAzEEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDbWFpbARzdGltZQMxMjI0OTcxMzQy;_ylg=1/SIG=10ujd6ds6/**http%3A//mail.yahoo.com.br/>
>>
>> Proteção anti-spam
>>
>> Muito mais espaço
>>  Yahoo! Barra
>>
>> Instale grátis<http://us.lrd.yahoo.com/_ylc=X3oDMTJwa2YzNW91BF9TAzk3NDkwNDM3BF9wAzIEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDdG9vbGJhcgRzdGltZQMxMjI0OTcxMzQy;_ylg=1/SIG=111ngvtas/**http%3A//br.toolbar.yahoo.com/>
>>
>> Buscar sites na web
>>
>> Checar seus e-mails .
>>  Yahoo! Grupos
>>
>> Crie seu próprio grupo<http://br.groups.yahoo.com/;_ylc=X3oDMTJwaDhjNHViBF9TAzk3NDkwNDM3BF9wAzMEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDZ3JvdXBzMgRzdGltZQMxMjI0OTcxMzQy>
>>
>> A melhor forma de comunicação
>>
>>   .
>>
>> __,_._,___
>>
>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>>
>>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110317/7c9d1927/attachment.html>