if (FALSE) {
logo <- x3p_read(system.file("csafe-logo.x3p", package="x3ptools"))
x3p_image(logoplus, size = c(741, 419), zoom=0.5)
# add crosscut:
logoplus <- x3p_add_hline(logo, yintercept = 50*.645e-6, color = "#e6bf98", size = 5)
x3p_image(logoplus, size = c(741, 419), zoom=0.5)
}
Run the code above in your browser using DataLab