diff --git a/mapping_draft-wilderness_section-hpc_optimised.Rmd b/mapping_draft-wilderness_section-hpc_optimised.Rmd
index f6b88e9..90f55a8 100644
--- a/mapping_draft-wilderness_section-hpc_optimised.Rmd
+++ b/mapping_draft-wilderness_section-hpc_optimised.Rmd
@@ -481,7 +481,7 @@ admin_barplot <-
 
 pdf("figures/03_admin_barplot.pdf")
 print(admin_barplot)
-dev.off() 
+dev.off()
 
 ```
 
@@ -528,16 +528,13 @@ admin_lev2_centralbelt_ecs_plot <-
 # Stitch together maps using grid()
 vp_admin_lev2_centralbelt_ecs_plot <- viewport(x = 0.5, y = 0.1, height = 6.0/centralbelt_ratio)
 
-# Save to file
-tmap_save(admin_lev2_scotland_ecs_plot, filename = "adminlev2_test.png", scale = 0.7, width = 6.125, 
-  insets_tm = admin_lev2_centralbelt_ecs_plot, 
-  insets_vp = vp_admin_lev2_centralbelt_ecs_plot)
-
 # plot full map with inset
+
 tmap_mode("plot")
-admin_lev2_scotland_ecs_plot
+pdf("figures/03_admin_lev2_scotland_ecs_plot.pdf")
 print(admin_lev2_centralbelt_ecs_plot, 
       vp = vp_admin_lev2_centralbelt_ecs_plot)
+dev.off()
 
 # Second plot, revealing transition towns