tests/testthat/test-basicPlot.R

In ikodvanj/ratPASTA: Processing Acoustic Startle Experimental Data

context("Testing Basic plot")
library(ggplot2)

test_that("Testing output of basicStartlePlot", {

  set.seed(5)
  data <- list("CTR 1" = data.frame(x = seq(1, 210881, by=12), y = runif(17574, min=-30, max=30)),
               "CTR 2" = data.frame(x = seq(1, 210881, by=12), y = runif(17574, min=-30, max=30)),
               "EXP 1" = data.frame(x = seq(1, 210881, by=12), y = runif(17574, min=-30, max=30)),
               "EXP 2" = data.frame(x = seq(1, 210881, by=12), y = runif(17574, min=-30, max=30)))
  mass <- data.frame("group" = c("CTR 1", "CTR 2", "EXP 1", "EXP 2"), "mass" = c(300, 350, 280, 330))

  df <- loadStartleData(auto_import=FALSE, data = data, mass = mass)

  bpl <- basicStartlePlot(df, filter_groups = c("ctr 1", "ctr 2"), n_col = 2)

  bpl_ld <- layer_data(bpl)

  bple_lde <- readRDS("bpl.rds")

  n<- intersect(names(bpl_ld), names(bple_lde))

  bpl_ld<- bpl_ld[,n]
  bple_lde<- bple_lde[,n]

  expect_is(bpl, "ggplot")
  expect_equal(bpl_ld, bple_lde)

})