arsenij.ustjanzew
--- a/R/components.R
+++ b/R/components.R
 #' @param raw Whether or not to emit solely the markdown image code.
+#' @param width The width of the image.
+#' @param height The height of the image
+#' @param description An image description below the image.
 #'
 #' @return A character string containing the evaluated component
-render_image <- function(image, image_alt_text = NULL, title = NULL, raw = FALSE) {
+render_image <- function(image, image_alt_text = NULL, title = NULL, raw = FALSE, width = "100%", height = "auto", description = NULL) {
  if(is.null(image_alt_text)) {
    image_alt_text <- image
  }
-  content <- glue::glue("![{image_alt_text}]({image})\n", image_alt_text = image_alt_text, image = image)
+  if(is.numeric(width)) width <- paste0(width,"px")
+  if(is.numeric(height)) height <- paste0(height,"px")
+  content <- paste0("<img src='",image,"' alt='",image_alt_text,"' style='width:",width,"; height:",height,"'/></br>\n")
+  if(!is.null(description)) content <- paste0(content,"*",description,"*\n\n")