Nothing
##
## --- Test treePlot.R ---
##
context("check that treePlot returns warnings when providing incorrectly formatted phylo4d objects.")
test_that("phylo4d gives warning when there is no data", {
phyd <- phylo4d(ape::rcoal(5), tip.data=data.frame())
expect_warning(plot(phyd), "tree has no tip data to plot")
})
test_that("phylo4d gives warning when there is data but they can't be plotted", {
phyd <- phylo4d(ape::rcoal(5), tip.data=data.frame(letters[1:5], letters[6:10]))
expect_warning(plot(phyd), "only numeric data can be plotted at this time")
})
## test.treePlot <- function() {
## }
## test.plotOneTree <- function() {
## }
## test.phyloXXYY <- function() {
## # function(phy, tip.order = NULL)
## }
## test..bubLegendGrob <- function() {
## }
## test.drawDetails.bubLegend <- function() {
## }
## test.phylobubbles <- function() {
## }
## test.tip.data.plot <- function() {
## }
## test.plot.phylo4 <- function() {
## # signature(x='phylo4', y='missing')
## }
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.