fix typo

cpsievert · cpsievert · commit 27c7ac44314e · 2015-07-31T22:34:20.000-04:00
diff --git a/tests/testthat/test-ggplot-bar.R b/tests/testthat/test-ggplot-bar.R
@@ -73,7 +73,7 @@ test_that("Very basic bar graph", {
     geom_bar(stat="identity")
   info <- expect_traces(gg, 1, "nocolor")
   for(tr in info$traces){
-    expect_true(is.na(l$data[[1]]$marker$color))
+    expect_true(is.na(tr$marker$color))
     expect_null(tr$marker$line)
     expect_false(tr$showlegend)
   }

Original file line number	Diff line number	Diff line change
`@@ -73,7 +73,7 @@ test_that("Very basic bar graph", {`
`73`	`73`	`geom_bar(stat="identity")`
`74`	`74`	`info <- expect_traces(gg, 1, "nocolor")`
`75`	`75`	`for(tr in info$traces){`
`76`		`- expect_true(is.na(l$data[[1]]$marker$color))`
	`76`	`+ expect_true(is.na(tr$marker$color))`
`77`	`77`	`expect_null(tr$marker$line)`
`78`	`78`	`expect_false(tr$showlegend)`
`79`	`79`	`}`