Displaying 1 result from an estimated 1 matches for "uniquelength".
2003 Jul 25
0
Sweave and Printing Lattice Figures From Loop
...to discove how many
# pages were produced from the known number of
# of figures
NumberPages <- length(created)
FileNameLength <- unlist(lapply(created,nchar))
# Use this to take advantage of that fact
# that file names with the same number of
# characters are pages to a given
UniqueLength <- unique(FileNameLength)
# unique length = base figure count
PagesPerFigure <- unlist(
lapply(
UniqueLength, function(x) sum(as.numeric(FileNameLength%in%x))
)
)
# Now that i've produced the
# figures and indexes
# need to put in the LaTeX...