added jpeg export

commented out tiff and jpeg
changed dimensions to 8X10

03_make_figures.R

@@ -11,8 +11,8 @@ colors <- list(darkblue = "#062e57",
              lightgrey = "#6D6D6D")
 
 # set dimensions of figures
-width <- 8.5
-height <- 11
+width <- 8
+height <- 10
 units <- "in"
 res <- 600
 margin <- 0
@@ -43,16 +43,27 @@ plot_map <- function () {
 }
 
 # save figure
-tiff(filename = paste0(figure_dir,"/map.tiff"),
-     width = width,
-     height = height,
-     units = units,
-     res = res,
-     compression = "lzw")
-par(mai=c(margin, margin, margin, margin))
-par(mar=c(1,1,1,1))
-plot_map()
-dev.off()
+# tiff(filename = paste0(figure_dir,"/map.tiff"),
+#    width = width,
+#    height = height,
+#    units = units,
+#    res = res,
+#    compression = "lzw")
+# par(mai=c(margin, margin, margin, margin))
+# par(mar=c(1,1,1,1))
+# plot_map()
+# dev.off()
+# 
+# jpeg(filename = paste0(figure_dir,"/map.jpg"),
+#    width = width,
+#    height = height,
+#    units = units,
+#    res = res,
+#    quality = 93)
+# par(mai=c(margin, margin, margin, margin))
+# par(mar=c(1,1,1,1))
+# plot_map()
+# dev.off()
 
 png(filename = paste0(figure_dir, "/map.png"),
   width = width,