update poor test expectations that assume stringsAsFactors defaults to TRUE

Author: cpsievert

tests/testthat/test-cookbook-lines.R

@@ -119,7 +119,7 @@ test_that("4 error bars", {
   info <- expect_traces(bp.err4, 4, "bar-dodge-color-err4")
 })
 
-df <- read.table(header = T, text = "
+df <- read.table(header = TRUE, text = "
       cond xval yval
    control 11.5 10.8
    control  9.3 12.9
@@ -189,7 +189,7 @@ test_that("geom_hline -> 2 more traces", {
   expect_equivalent(sum(has.name), 2)
 })
 
-df.vlines <- data.frame(cond = levels(df$cond), xval = c(10,11.5))
+df.vlines <- data.frame(cond = unique(df$cond), xval = c(10,11.5))
 #      cond xval
 #   control 10.0
 # treatment 11.5

tests/testthat/test-ggplot-path.R

@@ -39,8 +39,8 @@ test_that("paths with different colors become different traces", {
 })
 
 four.paths <- rbind(
-  data.frame(two.paths, g = "positive"),
-  data.frame(-two.paths, g = "negative")
+  data.frame(two.paths, g = "positive", stringsAsFactors = TRUE),
+  data.frame(-two.paths, g = "negative", stringsAsFactors = TRUE)
 )
 
 test_that("paths with the same color but different groups stay together", {