[S] Re: indentation for functions

Paul Y. Peng (peng@stat.ualberta.ca)
Fri, 22 May 1998 13:17:07 -0600 (MDT)


Tim Hesterberg wrote,
>
> The adventurous with Splus 4.x or before can try
>
> > set.indentation <- function(num=c(8,8,8,8,2),
> strings=sapply(num, function(n)paste(rep(" ",n),collapse=""))) {
> strings <- as.character(strings)
> .C("set_indent", strings, length(strings))
> invisible()
> }
> > set.indentation(2)

Thank you for such a nice solution!

Regards,

Paul.

-- 
-----------------------------------------------------------------
Paul Y. PENG                        E-mail: peng@stat.ualberta.ca
Department of Mathematical Sciences
University of Alberta                      Phone: +1-403-492-5851
Edmonton, Alberta T6G 2G1, CANADA            Fax: +1-403-492-6826
=================================================================
-----------------------------------------------------------------------
This message was distributed by s-news@wubios.wustl.edu.  To unsubscribe
send e-mail to s-news-request@wubios.wustl.edu with the BODY of the
message:  unsubscribe s-news