Nothing
test_that("Check QQ plots", {
db1 <- plot_qqline(data_2w_Tdeath, #plotted with grafify
PI, Genotype,
TextXAngle = 45,
ColPal = "muted",
ColRev = T) +
facet_wrap("Time")
db1
#test key layers and data file
expect_equal(db1$data, data_2w_Tdeath)
expect_s3_class(db1, "gg")
expect_equal(db1$theme$text$size, 20)
#match aesthetics in labels
expect_match(as.character(db1$labels$y), "sample")
#check text angle is passed on
if (utils::packageVersion("ggplot2") <= "3.4.2") {
expect_equal(db1$guides$x$angle, 45)
} else {
expect_equal(db1$guides$x$angle, 45)
}
})
test_that("Check histogram plots", {
db2 <- plot_histogram(data_2w_Tdeath, #plotted with grafify
PI,Genotype,
TextXAngle = 45) +
facet_wrap("Time")
db2
#test key layers and data file
expect_equal(db2$data, data_2w_Tdeath)
expect_s3_class(db2, "gg")
expect_equal(db2$theme$text$size, 20)
#match aesthetics in labels
#expect_match(as.character(db2$labels$y), "count")
#check text angle is passed on
if (utils::packageVersion("ggplot2") <= "3.4.2") {
expect_equal(db2$guides$x$angle, 45)
} else {
expect_equal(db2$guides$x$angle, 45)
}
})
test_that("Check density plots", {
db2 <- plot_density(data_2w_Tdeath, #plotted with grafify
PI,Genotype,
TextXAngle = 45) +
facet_wrap("Time")
db2
#test key layers and data file
expect_equal(db2$data, data_2w_Tdeath)
expect_s3_class(db2, "gg")
expect_equal(db2$theme$text$size, 20)
#match aesthetics in labels
#expect_match(as.character(db2$labels$y), "count")
#check text angle is passed on
if (utils::packageVersion("ggplot2") <= "3.4.2") {
expect_equal(db2$guides$x$angle, 45)
} else {
expect_equal(db2$guides$x$angle, 45)
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.