Adding the add_image_ext() function

DESCRIPTION

@@ -30,7 +30,9 @@ Imports:
     magrittr,
     plotly,
     stats,
-    utils
+    utils,
+    glue,
+    htmltools
 Suggests: 
     testthat
 Encoding: UTF-8

NAMESPACE

@@ -7,6 +7,7 @@ export(random_dygraph)
 export(random_ggplot)
 export(random_ggplotly)
 export(random_image)
+export(random_image_ext)
 export(random_lm)
 export(random_print)
 export(random_table)

R/random_image_ext.R

@@ -0,0 +1,28 @@
+#' A Random External Image from the Lorem Picsum API
+#'
+#' This function returns an external random image from the Lorem Picsum API that can be used directly within the Shiny UI.
+#'
+#' @return an external image
+#'
+#' @export
+#'
+#' @examples
+#'
+#' random_image_ext(width = 400, height = 600, seed = "caramba")
+#'
+#'
+
+random_image_ext <- function(width = 400, height = 400, seed = NULL) {
+
+  if (is.null(seed)) {
+
+    htmltools::img(src = glue::glue("https://picsum.photos/{width}/{height}"))
+
+  } else {
+
+    htmltools::img(src = glue::glue("https://picsum.photos/seed/{seed}/{width}/{height}"))
+
+  }
+
+
+}