Fix variable names in visual tests

Author: wch

visual_test/lines.r

@@ -74,26 +74,26 @@ nzmap + geom_abline(intercept = 130, slope = -1) + coord_map()
 save_vtest("geom_abline: intercept=130, slope=-1 projection=mercator")
 
 
-nzmap + geom_hline(yintercept = -45) + coord_map(project = "cylindrical")
+nzmap + geom_hline(yintercept = -45) + coord_map(projection = "cylindrical")
 save_vtest("geom_hline: intercept=-45, projection=cylindrical")
 
-nzmap + geom_vline(xintercept = 172) + coord_map(project = "cylindrical")
+nzmap + geom_vline(xintercept = 172) + coord_map(projection = "cylindrical")
 save_vtest("geom_vline: intercept=172, projection=cylindrical")
 
-nzmap + geom_abline(intercept = 130, slope = -1) + coord_map(project = "cylindrical")
+nzmap + geom_abline(intercept = 130, slope = -1) + coord_map(projection = "cylindrical")
 save_vtest("geom_abline: intercept=130, slope=-1, projection=cylindrical")
 
 
 nzmap + geom_hline(yintercept = -45) +
-  coord_map(project = 'azequalarea', orientation = c(-36.92, 174.6, 0))
+  coord_map(projection = 'azequalarea', orientation = c(-36.92, 174.6, 0))
 save_vtest("geom_hline: intercept=-45, projection=azequalarea")
 
 nzmap + geom_vline(xintercept = 172) +
-  coord_map(project = 'azequalarea', orientation = c(-36.92, 174.6, 0))
+  coord_map(projection = 'azequalarea', orientation = c(-36.92, 174.6, 0))
 save_vtest("geom_vline: intercept=172, projection=azequalara")
 
 nzmap + geom_abline(intercept = 130, slope = -1) +
-  coord_map(project = 'azequalarea', orientation = c(-36.92, 174.6, 0))
+  coord_map(projection = 'azequalarea', orientation = c(-36.92, 174.6, 0))
 save_vtest("geom_abline: intercept=130, slope=-1, projection=azequalarea")
 
 end_vcontext()

visual_test/minor-breaks.r

@@ -11,7 +11,7 @@ save_vtest("manual minor breaks with coord_polar")
 
 set.seed(342)
 df <- data.frame(
-  date = seq(as.Date("2012-2-29"), len = 100, by = "1 day")[sample(100, 50)],
+  date = seq(as.Date("2012-2-29"), length.out = 100, by = "1 day")[sample(100, 50)],
   price = runif(50)
 )
 df <- df[order(df$date), ]

visual_test/violin.r

@@ -42,7 +42,7 @@ ggplot(dat, aes(x = as.numeric(1), y = y)) + geom_violin()
 save_vtest("continuous x axis, single group (center should be at 1.0)")
 
 
-ggplot(dat, aes(x=x, y=y)) + geom_violin(quantiles=c(0.25,0.5,0.75))
+ggplot(dat, aes(x=x, y=y)) + geom_violin(draw_quantiles=c(0.25,0.5,0.75))
 save_vtest("quantiles")
 
 dat2 <- data.frame(x = LETTERS[1:3], y = rnorm(90), g = letters[5:6])