Nothing
context("general structure and type based tests")
test_dataframe <- function(party_object){
test_that("valid types in data frame", {
expect_is(get_plot_data(party_object), "data.frame")
expect_is(get_plot_data(party_object)$x, "numeric")
expect_is(get_plot_data(party_object)$y, "numeric")
expect_is(get_plot_data(party_object)$parent, "integer")
})
}
test_dataframe(py)
test_structure <- function(party_object){
test_that("valid structure", {
plot <- ggparty(party_object)
expect_is(plot,"ggplot")
expect_is(party_object,"party")
})
}
test_structure(py)
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.