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

[Fabio Mathias Corrêa]

             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

__._,_.___ 
Mensagens neste tópico  (1)  Responder  (através da web)  | Adicionar um novo 
tópico  

Mensagens | Arquivos | Fotos | Links | Banco de dados | Enquetes 
 
Alterar configurações via web (Requer Yahoo! ID) 
Alterar configurações via e-mail: Alterar recebimento para lista diária de 
mensagens | Alterar formato para o tradicional 

Visite seu Grupo  | Termos de uso do Yahoo! Grupos  | Sair do grupo  
Atividade nos últimos dias
	*  8
Novos usuáriosVisite seu Grupo  
Yahoo! Mail
Conecte-se ao mundo
Proteção anti-spam
Muito mais espaço
Yahoo! Barra
Instale grátis
Buscar sites na web
Checar seus e-mails .
Yahoo! Grupos
Crie seu próprio grupo
A melhor forma de comunicação
. 
__,_._,___    


      
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110317/b7319235/attachment.html>