disabled theme_bw() for charts as seems to fail?

impetusModel/applyDroughtWEmodel.Rmd

@@ -848,8 +848,8 @@ myDrPlot
 ggsave("Fig4_Compare_sum_model_v1_3.pdf", dpi = 400)
 
 # Grey scale version if required
-myDrPlot <- myDrPlot + theme_bw()
-ggsave("Fig4_Compare_sum_model_v1_3_gs.pdf", plot = myDrPlot, dpi = 400)
+#myDrPlot <- myDrPlot + theme_bw()
+#ggsave("Fig4_Compare_sum_model_v1_3_gs.pdf", plot = myDrPlot, dpi = 400)
 
 # 2.0 ----
 myPlot <- ggplot(plotTotalDT[model == "v2_0"], aes(x = obsDate)) +
@@ -949,8 +949,8 @@ myPlot
 ggsave("Fig5_Chart_savings_v1_3_by_month.pdf", plot = myPlot, dpi = 400)
 
 # Grey scale version if required
-myPlot <- myPlot + theme_bw()
-ggsave("Fig5_Chart_savings_v1_3_by_month_gs.pdf", plot = myPlot, dpi = 400)
+#myPlot <- myPlot + theme_bw()
+#ggsave("Fig5_Chart_savings_v1_3_by_month_gs.pdf", plot = myPlot, dpi = 400)
 
 myPlot <- ggplot(plotTotalDT[model == "v2_0"], aes(x = obsDate, y = pcSaved, colour = metered)) + 
   geom_point() +

impetusModel/baselineModel_v2_0.Rmd

@@ -798,8 +798,8 @@ myPlot
 ggsave("Fig2_CompareWithEST.pdf",  plot = myPlot, dpi = 400)
 
 # Grey scale version if required
-myPlot <- myPlot + theme_bw()
-ggsave("Fig5_Chart_savings_v1_3_by_month_gs.pdf", plot = myPlot, dpi = 400)
+#myPlot <- myPlot + theme_bw()
+#ggsave("Fig5_Chart_savings_v1_3_by_month_gs.pdf", plot = myPlot, dpi = 400)
 
 ```
 

impetusModel/computeHistoricalMonthly.Rmd

@@ -820,8 +820,8 @@ myPlot
 ggsave("Fig3_Final_model_v1_3_2012_by_month.pdf", dpi = 400)
 
 # Grey scale version if required
-myPlot <- myPlot + theme_bw()
-ggsave("Fig3_Final_model_v1_3_2012_by_month_gs.pdf", plot = myPlot, dpi = 400)
+#myPlot <- myPlot + theme_bw()
+#ggsave("Fig3_Final_model_v1_3_2012_by_month_gs.pdf", plot = myPlot, dpi = 400)
 ```
 
 ```{r final model v1_3 2012 all dates}