# NOT RUN {
logo <- read_x3p(system.file("csafe-logo.x3p", package="x3ptools"))
image_x3p(logo, file = "logo.png", crosscut = 50*.645e-6)
# alternative to crosscut
logoplus <- x3p_add_hline(logo, yintercept = 50*.645e-6, color = "#e6bf98", size = 5)
image_x3p(logoplus, size = c(741, 419), zoom=0.5)
# }
Run the code above in your browser using DataLab