taha
/
R-common
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added an extra arg (mainlabel) plus other minor changes so that LaTeX doesnot complain

Browse Source 
about "multiply-defined labels".
master
Taha Ahmed 14 years ago
parent d0044d87ed
commit 203bd6cfbe
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File

20
SubfigureGenerator.R
Unescape Escape View File

@ -1,8 +1,11 @@
################################################## ##################################################
############# SubfigureGenerator ################# ############# SubfigureGenerator #################
################################################## ##################################################
SubfigureGenerator <- function(images, captions, SubfigureGenerator <- function(images,
perpage = 6, ncol = 2, subcaptions,
mainlabel = "fig:mainfig",
perpage = 6,
ncol = 2,
landscape = FALSE) { landscape = FALSE) {
## Description: ## Description:
## ##
@ -12,7 +15,10 @@ SubfigureGenerator <- function(images, captions,
## images: vector with full paths to images ## images: vector with full paths to images
## (png-files or other LaTeX-compatible format) ## (png-files or other LaTeX-compatible format)
## to be put in a LaTeX subfigure environment ## to be put in a LaTeX subfigure environment
## captions: vector with subcaptions for each subfigure ## subcaptions: vector with subcaptions for each subfigure
## mainlabel: string with LaTeX label for the main figure environment
## Should be set individually if SubfigureGenerator() is called
## more than once from the same document
## perpage: maximum number of images on one page, ## perpage: maximum number of images on one page,
## one A4 page fits six images with subcaptions ## one A4 page fits six images with subcaptions
## ncol: LaTeX subfigure is setup with ncol columns ## ncol: LaTeX subfigure is setup with ncol columns
@ -51,15 +57,15 @@ SubfigureGenerator <- function(images, captions,
# this includes the i-th image in a subfigure # this includes the i-th image in a subfigure
cat(paste("\\includegraphics[width=\\linewidth]{", cat(paste("\\includegraphics[width=\\linewidth]{",
images[i], "}\n", sep = ""), file = zz) images[i], "}\n", sep = ""), file = zz)
cat(paste("\\caption{", captions[i], cat(paste("\\caption{", subcaptions[i],
"}\n", sep = ""), file = zz) "}\n", sep = ""), file = zz)
cat(paste("\\label{fig:sfig-", int2padstr(ii = i, pchr = "0", w = 3), cat(paste("\\label{", mainlabel, ":sfig-", int2padstr(ii = i, pchr = "0", w = 3),
"}\n", sep = ""), file = zz) "}\n", sep = ""), file = zz)
cat("\\end{subfigure}", file = zz) cat("\\end{subfigure}", file = zz)
# #
if (!(i %% (perpage)) && length(images) != (perpage*page.counter)) { if (!(i %% (perpage)) && length(images) != (perpage*page.counter)) {
cat("\\caption{Main figure caption.}\n", file = zz) cat("\\caption{Main figure caption.}\n", file = zz)
cat(paste("\\label{fig:mainfig-", cat(paste("\\label{", mainlabel, "-",
int2padstr(ii = page.counter, pchr = "0", w = 3), int2padstr(ii = page.counter, pchr = "0", w = 3),
"}\n", sep = ""), file = zz) "}\n", sep = ""), file = zz)
if (landscape == TRUE) { if (landscape == TRUE) {
@ -89,7 +95,7 @@ SubfigureGenerator <- function(images, captions,
# #
# end figure # end figure
cat("\\caption{Main caption.}\n", file = zz) cat("\\caption{Main caption.}\n", file = zz)
cat(paste("\\label{fig:mainfig-", cat(paste("\\label{", mainlabel, "-",
int2padstr(ii= page.counter, pchr = "0", w = 3), int2padstr(ii= page.counter, pchr = "0", w = 3),
"}\n", sep = ""), file = zz) "}\n", sep = ""), file = zz)
if (landscape == TRUE) { if (landscape == TRUE) {

Write Preview
Loading…
Cancel
Save