Use .tif as synonym to .tiff (#5329)

teunbrand · web-flow · commit 996cbd8efc1e · 2023-06-19T18:11:05.000+02:00
diff --git a/R/save.R b/R/save.R
@@ -233,7 +233,8 @@ plot_dev <- function(device, filename = NULL, dpi = 300, call = caller_env()) {
     jpg =  function(...) jpeg_dev(..., res = dpi, units = "in"),
     jpeg = function(...) jpeg_dev(..., res = dpi, units = "in"),
     bmp =  function(...) grDevices::bmp(..., res = dpi, units = "in"),
-    tiff = function(...) tiff_dev(..., res = dpi, units = "in")
+    tiff = function(...) tiff_dev(..., res = dpi, units = "in"),
+    tif  = function(...) tiff_dev(..., res = dpi, units = "in")
   )
 
   if (is.null(device)) {

Original file line number	Diff line number	Diff line change
`@@ -233,7 +233,8 @@ plot_dev <- function(device, filename = NULL, dpi = 300, call = caller_env()) {`
`233`	`233`	`jpg = function(...) jpeg_dev(..., res = dpi, units = "in"),`
`234`	`234`	`jpeg = function(...) jpeg_dev(..., res = dpi, units = "in"),`
`235`	`235`	`bmp = function(...) grDevices::bmp(..., res = dpi, units = "in"),`
`236`		`- tiff = function(...) tiff_dev(..., res = dpi, units = "in")`
	`236`	`+ tiff = function(...) tiff_dev(..., res = dpi, units = "in"),`
	`237`	`+ tif = function(...) tiff_dev(..., res = dpi, units = "in")`
`237`	`238`	`)`
`238`	`239`
`239`	`240`	`if (is.null(device)) {`