# NOT RUN {
logo <- read_x3p(system.file("csafe-logo.x3p", package = "x3ptools"))
# ten vertical lines across:
logoplus <- x3p_add_grid(logo,
spaces = 50e-6, size = c(1, 3, 5),
color = c("grey50", "black", "darkred")
)
image_x3p(logoplus, size = c(741, 419), zoom = 0.5)
# }
Run the code above in your browser using DataLab