Figures that need post-production modification.

5.17 Chap05-contourplot.tikz
5.19 Chap05-ggplothistograms.tikz
9.12 Chap09-krigerainfallmaps.tikz
11.5 Chap11-densitymaps.tikz
12.6 Chap12-covariatesplot.tikz
12.7 Chap12-imageplotmodels.tikz
12.8 Chap12-bmarandom.tikz
13.5 Chap13-intensityvsforwardspeed.tikz
 
 
The problem is the same it has code:
 
\draw[fill=fillColor,draw opacity=0.00,]
 
It should be changed to
 
\draw[fill=fillColor,color=fillColor]

> getwd()
[1] "C:/Users/ThomasJagger/Dropbox/Book"
 
files<-dir(".",pattern="[.]tikz",recursive=T)
filestofix<-files[sapply(files,function(x) any(grepl("fill=fillColor,draw opacity=0.00",readLines(x),fixed=T)))]
 
for(filetest in filestofix){
print(filetest)
filecontents<-readLines(filetest)
filecontents2<-gsub("fill=fillColor,draw opacity=0.00","fill=fillColor,color=fillColor",filecontents,fixed=T)
filecon<-file(paste(filetest,".fixed",sep=""),"w")
writeLines(filecontents2,con=filecon)
close(filecon)
}
 
The fixed files have an extension .tikz.fixed
There were 40! files