tests/testthat/test_plot.R

context("plot data ")

test_that("plot data is plotted", {
    p <- plotMyData()
    expect_true(is.ggplot(p))

  #expect_identical(fbind(x, y), z)
  #expect_identical(fbind(x_fact, y), z)
})
kuanghuangying/KuangHuangyingTools documentation built on May 25, 2019, 9:30 p.m.