saved CO2factor and esub_cons figures as PNG files (for referencing in README.md)

renv.lock

 {
   "R": {
-    "Version": "4.3.2",
+    "Version": "4.3.1",
     "Repositories": [
       {
         "Name": "REPO_NAME",
@@ -26,7 +26,7 @@
     },
     "Matrix": {
       "Package": "Matrix",
-      "Version": "1.6-1.1",
+      "Version": "1.6-1",
       "Source": "Repository",
       "Repository": "CRAN",
       "Requirements": [
@@ -39,7 +39,7 @@
         "stats",
         "utils"
       ],
-      "Hash": "4767d80e0dcdf2ee70bd5ed1e1d37c4a"
+      "Hash": "8a14614ea3b5921618413502f1398bbc"
     },
     "R6": {
       "Package": "R6",
@@ -406,7 +406,7 @@
     },
     "lattice": {
       "Package": "lattice",
-      "Version": "0.21-9",
+      "Version": "0.21-8",
       "Source": "Repository",
       "Repository": "CRAN",
       "Requirements": [
@@ -417,7 +417,7 @@
         "stats",
         "utils"
       ],
-      "Hash": "5558c61e0136e247252f5f952cdaad6a"
+      "Hash": "0b8a6d63c8770f02a8b5635f3c431e6b"
     },
     "lifecycle": {
       "Package": "lifecycle",

scripts/figures.R

@@ -30,6 +30,9 @@ params = readRDS("interim/params.rds")
 policies = c("policy", "cbam")
 inc_groups = c("lo", "mi", "hi")
 
+# specify file types that figures should be saved as
+filetypes = c(".pdf", ".png")
+
 # minimum CO2 target
 min_CO2factor = 0.87
 
@@ -165,19 +168,21 @@ for(i in 1:length(params)) {
             linewidth = 1
           ) +
           theme_minimal(base_size = 18.5)
+          rm(ci_value)
       }
 
-      # save histogram as PDF
-      ggsave(
-        file.path(
-          "figures",
-          params[i],
-          paste0(plot_name, ".pdf")
+      # save histogram as PDF and PNG
+      for(l in 1:length(filetypes)) {
+        ggsave(
+          file.path(
+            "figures",
+            params[i],
+            paste0(plot_name, filetypes[l])
+          )
         )
-      )
+      }
     }
   }
 }
 rm(i, j, k, welf_effect_name, welf_effect, welf_name,
-   ci_value, plot_name, plot_value, params,
-   inc_groups, policies)
+   plot_name, plot_value, params, inc_groups, policies)
\ No newline at end of file