updates

inst/docs/Figure_Wind_EMT_SST.Rmd

@@ -298,7 +298,7 @@ for(i in c("Summer Jun-Sep", "Winter Jan-Apr")){
   plist2[[i]] <- p1
 }
   key <- spplot(rst, scales = list(draw = TRUE), 
-                colorkey = list(space = "right", height=0.75), at=at, zlim=zlims, col.regions=rev(pal(length(at))))
+                colorkey = list(space = "right", height=0.7), at=at, zlim=zlims, col.regions=rev(pal(length(at))))
   key <- draw.colorkey(key$legend[[1]]$args$key)
 plist2[[3]] <- key
 key.label <- textGrob("Temperature (°C)", x = unit(0.02, "npc"), y = unit(0.6, "npc"), just = "left")
@@ -342,6 +342,7 @@ gridExtra::grid.arrange(grobs=plist3[c(1,2)], ncol=2)
 lay <- rbind(c(1,2,3),c(4,5,NA))
 test=gridExtra::arrangeGrob(grobs=c(plist2[1:3], plist3[1:2]), layout_matrix = lay, widths = c(10,10,1.5), 
              heights=c(10,10), padding=unit(-2,"line"))
-plot(test)
+grid.draw(test)
+grid.text("SST (°C)", x=unit(0.955, "npc"), y=unit(0.56, "npc"), rot=0)
 ```
 

inst/docs/Sardine.bib

@@ -257,6 +257,18 @@ @article{Banerji1969
    type = {Journal Article}
 }
 
+@article {Barthetal2007,
+	author = {Barth, John A. and Menge, Bruce A. and Lubchenco, Jane and Chan, Francis and Bane, John M. and Kirincich, Anthony R. and McManus, Margaret A. and Nielsen, Karina J. and Pierce, Stephen D. and Washburn, Libe},
+	title = {Delayed upwelling alters nearshore coastal ocean ecosystems in the northern {C}alifornia current},
+	volume = {104},
+	number = {10},
+	pages = {3719-3724},
+	year = {2007},
+	DOI = {https://doi.org/10.1073/pnas.0700462104},
+	publisher = {National Academy of Sciences},
+	journal = {Proceedings of the National Academy of Sciences}
+}
+
 @article{Baumgartneretal1992,
    author = {Baumgartner, T. R. and Soutar, Andy and Ferreira-Bartrina, Vicente},
    title = {Reconstruction of the history of the {P}acific sardine and northern anchovy populations over the past two millennia from sediments of the {S}anta {B}arbara basin, {C}alifornia},