explicitly simplify test input

dplyr went from 0.4.1 to 0.4.2 and bind_cols() now returns tbl_df --> the ws component of googlesheet objects is now a tbl_df --> must use `[[` to explicitly simplify and get single element for this comparison
jennybc · Jun 19, 2015 · eafe3ee · eafe3ee
1 parent d839768
commit eafe3ee
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-ws-edits.R b/tests/testthat/test-ws-edits.R
@@ -15,9 +15,9 @@ test_that("Add a new worksheet", {
 
   new_ws_index <- ss_before$n_ws + 1
   expect_equal(new_ws_index, ss_after$n_ws)
-  expect_equal(ss_after$ws[new_ws_index, "row_extent"], 7L)
-  expect_equal(ss_after$ws[new_ws_index, "col_extent"], 5L)
-  expect_equal(ss_after$ws[new_ws_index, "ws_title"], "Test Sheet")
+  expect_equal(ss_after$ws[[new_ws_index, "row_extent"]], 7L)
+  expect_equal(ss_after$ws[[new_ws_index, "col_extent"]], 5L)
+  expect_equal(ss_after$ws[[new_ws_index, "ws_title"]], "Test Sheet")
 
   ## this worksheet gets deleted below