library(figpatch)
fl <- image_path <- system.file("extdata",
package = "figpatch",
mustWork = TRUE
) %>%
list.files(
pattern = "png",
full.names = TRUE
)
# without scaling
fl %>%
lapply(fig) %>%
fig_wrap(ncol = 2)
# with scaling
fl %>%
lapply(fig) %>%
fig_scale() %>%
fig_wrap(ncol = 2)
Run the code above in your browser using DataLab