[Seqinr-commits] r1842 - www/src/book

[noreply at r-forge.r-project.org]

Author: jeanlobry
Date: 2016-05-31 17:44:58 +0200 (Tue, 31 May 2016)
New Revision: 1842

Modified:
   www/src/book/book.rnw
Log:
mini qui marche

Modified: www/src/book/book.rnw
===================================================================
--- www/src/book/book.rnw	2016-05-31 13:28:59 UTC (rev 1841)
+++ www/src/book/book.rnw	2016-05-31 15:44:58 UTC (rev 1842)
@@ -50,6 +50,7 @@
 \input{../config/authors}
 
 \begin{document}
+\SweaveOpts{concordance=TRUE}
 \SweaveInput{../config/commonrnw.rnw}
 
 %
@@ -59,6 +60,8 @@
 <<includepart, echo=F, fig=F>>=
 includepart <- function(filename, withminiTOC = FALSE, withchapter = TRUE){
 
+  if(!file.exists(filename)) stop(paste("File", filename, "not found"))
+
   cat(paste("%%%%% begin of", filename), sep = "\n")
   infile <- file(description = filename, open = "r")
 
@@ -156,7 +159,8 @@
 \part{Mainmatter}
 
 %
-% In R comments the observed compilation times in seconds for Sweaving the corresponding *.rnw file
+% In R comments the observed compilation times in seconds for Sweaving 
+% the corresponding *.rnw file
 %
 <<introduction, echo=F,results=tex, fig = F,eval=T>>=
 includepart("../mainmatter/introduction.tex")
@@ -164,7 +168,7 @@
 <<getseqflat, echo=F,results=tex, fig = F,eval=T>>=
 includepart("../mainmatter/getseqflat.tex")   #  47.6 .. 45.8
 @ 
-<<getseqacnuc, echo=F,results=tex, fig = F,eval=T>>=
+<<getseqacnuc, echo=F,results=tex, fig = F,eval=F>>=
 includepart("../mainmatter/getseqacnuc.tex")  #  68 sans taxaperbank, 251 avec 
 includepart("../mainmatter/querylang.tex")    #  273
 includepart("../mainmatter/extractseqs.tex")  #  233
@@ -189,7 +193,7 @@
 % rundontrun.rnw # 259.5 .. 280 (need two sweave passes)
 %
 
-<<appendix, echo=F,results=tex, fig = F,eval=T>>=
+<<appendix, echo=F,results=tex, fig = F,eval=F>>=
 for(part in appendix) includepart(part, withminiTOC = F)
 @