# NOT RUN {
# 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.
# }
# NOT RUN {
demo_image %>%
image_to_mosaic(12) %>%
build_mosaic()
# }
# NOT RUN {
#Build a mosaic in the default size of 48x48 studs with title
# }
# NOT RUN {
demo_image %>%
image_to_mosaic() %>%
build_mosaic("Demo mosaic")
# }
Run the code above in your browser using DataLab