Merge branch 'master' of https://github.com/kadyb/rstac into dev

R/preview-utils.R

@@ -2,7 +2,7 @@
 #'
 #' This is a helper function to plot preview assets
 #' (e.g. quicklook, thumbnail, rendered_preview).
-#' Currently, only png and jpeg formats are supported.
+#' Currently, only png, jpeg and jpg formats are supported.
 #'
 #' @param url   image URL to be plotted.
 #'
@@ -12,7 +12,7 @@
 preview_plot <- function(url) {
   preview_check(url)
   img <- preview_read_file(url)
-  plot(1:10, ty = "n", axes = F, xlab = "", ylab = "")
+  plot(1:10, type = "n", axes = FALSE, xlab = "", ylab = "")
   grid::grid.raster(img)
 }
 
@@ -39,6 +39,12 @@ preview_check <- function(url) {
         "This function requires `jpeg` package. Please, use",
         "install.packages('jpeg')."
       ))
+    ,
+    jpg = if (!requireNamespace("jpeg", quietly = TRUE))
+      .error(paste(
+        "This function requires `jpeg` package. Please, use",
+        "install.packages('jpeg')."
+      ))
   )
 }
 
@@ -55,7 +61,8 @@ preview_read_file <- function(url) {
   preview_switch(
     url,
     png = png::readPNG(temp_file),
-    jpeg = jpeg::readJPEG(temp_file)
+    jpeg = jpeg::readJPEG(temp_file),
+    jpg = jpeg::readJPEG(temp_file)
   )
 }