library(qrlabelr)
file <- tempfile()
# \donttest{
if(file.exists(file))
# Create rectangular plot labels based on the Avery 94220 template-- the default template
create_label(
font_sz = 10,
filename = file,
print_across = TRUE,
rect = TRUE,
top_left_1 = paste("Plot:", 101:105),
top_left_2 = paste("Row:", c(rep(1, 3), rep(2, 2))),
top_right_1 = paste("Rep:", rep(1, 5)),
top_right_2 = paste("Col:", c(1:3, 1:2)),
center_right_1 = paste("iBLOCK:", c(rep(1, 3), rep(2, 2))),
center_right_2 = paste("Seed:", rep("OFF_NUR", 5)),
center_right_3 = rep("AWk", 5),
bottom_left_1 = paste("Loc:", rep("BAMBEY", 5)),
bottom_left_2 = paste0("G-", 1:5),
unique_id = paste("KUMASI2023_PYT", c(101:105),
c(rep(1, 3), rep(2, 2)), c(1:3, 1:2),
sep = "_"),
ec_level = 1)
# }
Run the code above in your browser using DataLab