# 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)
#Create a mosaic oject
# }
# NOT RUN {
mosaic <- demo_image %>%
image_to_mosaic(img_size = 24)
# }
# NOT RUN {
#Rather than drawing the mosaic, use build_instructions() to draw instructions
# }
# NOT RUN {
mosaic %>%
build_instructions()
# }
# NOT RUN {
#Change the number of steps for more detail
# }
# NOT RUN {
mosaic %>%
build_instructions(num_steps = 9)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab