R/build_mosaic_dots.R

In ryantimpe/brickr: Emulate LEGO Bricks in 2D and 3D

#' Display 2D LEGO mosaic as a plot image
#'
#' Render a plot image of the 2D DOTs tile mosaic with optional title.
#'
#' @param brick_obj List output from image_to_bricks(). Contains an element \code{Img_lego}.
#' @param title Optional title to include above plotted mosaic.
#' @return A single plot object to display 2D mosaic.
#' @family Mosaics
#' @export
#' @examples
#'
#' # Import a jpeg or png
#'  demo_file <- system.file("extdata", "demo_img.jpg",
#'                           package = "brickr", mustWork = TRUE)
#'  demo_image <- jpeg::readJPEG(demo_file)
#'
#' #Build a very small 12x12 mosaic.
#'  \donttest{
#' demo_image %>%
#'  image_to_mosaic(12) %>%
#'  build_mosaic_dots()
#'  }
#'
#' #Build a mosaic in the default size of 48x48 studs with title
#' \donttest{
#' demo_image %>%
#'  image_to_mosaic() %>%
#'  build_mosaic_dots("Demo mosaic")
#'  }
#'

build_mosaic_dots <- function(brick_obj, title=NULL){
  in_list <- brick_obj
  image <- in_list$Img_lego
  type <- in_list$mosaic_type

  coord_x <- c(min(image$x)+0.5, max(image$x)-0.5)
  coord_y <- c(min(image$y)+0.5, max(image$y)-0.5)

  img <- ggplot2::ggplot(in_list$Img_lego, ggplot2::aes(x=x, y=y))  +
    geom_brick_dots(ggplot2::aes(fill = Lego_color), color = "#333333")+
    ggplot2::scale_fill_identity() +
    ggplot2::coord_fixed(expand = 0.5)

  img <- img +
    ggplot2::labs(title = title) +
    ggplot2::theme_void() +
    ggplot2::theme(
      plot.background = ggplot2::element_rect(fill= "#333333")
    )

  return(img)
}