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@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@gmail.com>
Para: R_STAT@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

__._,_.___
Atividade nos últimos dias
Visite 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

.

__,_._,___

 

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br