replaced plyr occurences with data.table

tests/testthat/test-compiler-animation.R

@@ -10,9 +10,8 @@ if(require(maps)){
   USpolygons <- map_data("state")
   USpolygons$state <- state.abb[match(USpolygons$region, tolower(state.name))]
 
-  # Convert to data.table
-  setDT(UStornadoes)
-  UStornadoCounts <- UStornadoes[, .(count = .N), by = .(state, year)]
+  UStornadoes_dt <- as.data.table(copy(UStornadoes))
+  UStornadoCounts <- UStornadoes_dt[, .(count = .N), by = .(state, year)]
 
   tornado.anim <- list(
     map=ggplot()+
@@ -24,7 +23,7 @@ if(require(maps)){
       geom_segment(aes(
         x=startLong, y=startLat, xend=endLong, yend=endLat),
         showSelected="year",
-        colour="#55B1F7", data=UStornadoes),
+        colour="#55B1F7", data=UStornadoes_dt),
     ts=ggplot()+
       make_tallrect(UStornadoCounts, "year")+
       geom_line(aes(

tests/testthat/test-compiler-fortify.r

@@ -1,13 +1,13 @@
 context("Fortify")
 library(sp)
-library(ggplot2)
+library(animint2)
 
 test_that("Spatial polygons have correct ordering", {
   make_square <- function(x = 0, y = 0, height = 1, width = 1){
     delx <- width/2
     dely <- height/2
     Polygon(matrix(c(x + delx, x - delx,x - delx,x + delx,x + delx ,
-                  y - dely,y - dely,y + dely,y + dely,y - dely), ncol = 2))
+        y - dely,y - dely,y + dely,y + dely,y - dely), ncol = 2))
   }
 
   make_hole <- function(x = 0, y = 0, height = .5, width = .5){