Add function saveActiveDevice()

Author: ma-z-am

NAMESPACE

@@ -25,6 +25,7 @@ export(load_rivers)
 export(load_timeframes)
 export(plot_empty_map)
 export(prepare_rivers)
+export(saveActiveDevice)
 export(site_info_from_qsimID)
 export(stats)
 export(value_to_classes)
@@ -34,8 +35,11 @@ importFrom(geosphere,distHaversine)
 importFrom(grDevices,col2rgb)
 importFrom(grDevices,dev.new)
 importFrom(grDevices,dev.off)
+importFrom(grDevices,dev.print)
+importFrom(grDevices,dev.size)
 importFrom(grDevices,png)
 importFrom(grDevices,rgb)
+importFrom(grDevices,svg)
 importFrom(graphics,abline)
 importFrom(graphics,legend)
 importFrom(graphics,lines)

R/saveActiveDevice.R

@@ -0,0 +1,42 @@
+#' Saves the graphic in the active device either as svg or png
+#'
+#' @param filename The Name of the file without suffix (ex. "plot")
+#' @param type The default "vector" saves the graphic as svg, everything else
+#' saves as png (ex. "")
+#' @param path Path where to store the file. If no path is defined, the current
+#' working directory is used.
+#' @param resolution One of "low", "medium" or "high" (only used for png files)
+#'
+#' @importFrom grDevices dev.print dev.size svg
+#' @export
+#'
+saveActiveDevice <- function(
+    filename, path = NULL, type = "vector",  resolution = "medium"
+){
+
+  if(type == "vector"){
+    dev.print(
+      device = svg,
+      file = file.path(path, paste0(filename, ".svg")),
+      width = dev.size("in")[1],
+      height = dev.size("in")[2],
+      pointsize = par("ps")
+    )
+
+  } else {
+    res <- if(resolution == "low"){
+      200
+    } else if(resolution == "medium"){
+      500
+    } else if(resolution == "high"){
+      1000
+    }
+    dev.print(
+      device = png,
+      filename = file.path(path, paste0(filename, ".png")),
+      width = dev.size("in")[1],
+      height = dev.size("in")[2],
+      units = "in", res = res
+    )
+  }
+}