Nothing
tests/testthat/test-gp_label.R
In qrlabelr: Generate Machine- And Human-Readable Plot Labels for Experiments
test_that("General-purpose plot label PDF successful generation", {
#skip_on_cran()
path <- tempdir()
setwd(path)
expect_invisible(
gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
wdt = 5,
hgt = 2,
page_wdt = 8.5,
page_hgt = 11,
top_mar = 0.75,
bot_mar = 0.75,
left_mar = 1.75,
right_mar = 1.75,
numrow = 4L,
numcol = 1L,
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 20,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT'))
expect_true(length(list.files(path = ".", pattern = "\\.pdf$")) > 0)
expect_true(length(list.files(path = ".", pattern = "\\.csv$")) > 0)
on.exit(unlink(path))
})
test_that("General-purpose plot label input errors", {
#skip_on_cran()
expect_error(gp_label(font_sz = 10,
get_unique_id = "uuid",
filename = "PlotLabel",
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT'),
"Fieldbook is missing, please provide a fieldbook as a data frame.")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
wdt = 5,
hgt = 2,
page_wdt = 8.5,
page_hgt = 11,
top_mar = 2,
bot_mar = 2,
left_mar = 4,
right_mar = 4,
numrow = 4L,
numcol = 1L,
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Page setup does not match label setup per page.")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 1,
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT'),
"Invalid string entered for 'top_left_id1'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 1,
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'top_left_id2'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 1,
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'top_right_id1'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 1,
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'top_right_id2'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 1,
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'center_right_id1'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 1,
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'center_right_id2'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 1,
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'bottom_left_id1'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 1 ),
"Invalid string entered for 'bottom_left_id2'")
})
Try the qrlabelr package in your browser
Any scripts or data that you put into this service are public.
qrlabelr documentation built on May 29, 2024, 10:16 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("General-purpose plot label PDF successful generation", {
#skip_on_cran()
path <- tempdir()
setwd(path)
expect_invisible(
gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
wdt = 5,
hgt = 2,
page_wdt = 8.5,
page_hgt = 11,
top_mar = 0.75,
bot_mar = 0.75,
left_mar = 1.75,
right_mar = 1.75,
numrow = 4L,
numcol = 1L,
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 20,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT'))
expect_true(length(list.files(path = ".", pattern = "\\.pdf$")) > 0)
expect_true(length(list.files(path = ".", pattern = "\\.csv$")) > 0)
on.exit(unlink(path))
})
test_that("General-purpose plot label input errors", {
#skip_on_cran()
expect_error(gp_label(font_sz = 10,
get_unique_id = "uuid",
filename = "PlotLabel",
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT'),
"Fieldbook is missing, please provide a fieldbook as a data frame.")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
wdt = 5,
hgt = 2,
page_wdt = 8.5,
page_hgt = 11,
top_mar = 2,
bot_mar = 2,
left_mar = 4,
right_mar = 4,
numrow = 4L,
numcol = 1L,
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Page setup does not match label setup per page.")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 1,
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT'),
"Invalid string entered for 'top_left_id1'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 1,
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'top_left_id2'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 1,
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'top_right_id1'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 1,
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'top_right_id2'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 1,
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'center_right_id1'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 1,
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'center_right_id2'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 1,
bottom_left_id2 = 'TREATMENT' ),
"Invalid string entered for 'bottom_left_id1'")
expect_error(gp_label(dat = data.frame(LOCATION = rep("BAMBEY", 10),
PLOT = 1001:1010,
ROW = c(rep(1, 6), rep(2, 4)),
COLUMN = c(1:6, 1:4),
REP = rep(1, 10),
IBLOCK = c(rep(1, 6), rep(2, 4)),
TREATMENT = paste0("G-", 1:10),
SEED_SOURCE = rep("OFF_NUR", 10)),
get_unique_id = "uuid",
filename = "PlotLabel",
font_sz = 10,
top_left_txt1 = 'Plot:',
top_left_txt2 = 'Row:',
top_right_txt1 = 'Rep:',
top_right_txt2 = 'Col:',
center_right_txt1 = 'iBlock ID:',
center_right_txt2 = 'Seed:',
center_right_txt3 = 'AWK',
bottom_left_txt1 = 'Loc:',
top_left_id1 = 'PLOT',
top_left_id2 = 'ROW',
top_right_id1 = 'REP',
top_right_id2 = 'COLUMN',
center_right_id1 = 'IBLOCK',
center_right_id2 = 'SEED_SOURCE',
bottom_left_id1 = 'LOCATION',
bottom_left_id2 = 1 ),
"Invalid string entered for 'bottom_left_id2'")
})
Try the qrlabelr package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.