tests for indexing

Author: Lindsay Carr

tests/testthat/tests-points.R

@@ -58,3 +58,18 @@ test_that("points.gsplot accepts formulas",{
 
 })
 
+test_that("points works with indexing", {
+  
+  x <- 7:10
+  gs <- gsplot() %>%
+    points(x)
+  expect_equal(class(gs$view.1.2$points$y), "integer")
+  expect_equal(gs$view.1.2$points$x, seq_along(x))
+  
+
+  oct_dates <- seq(as.Date("2015-10-11"), as.Date("2015-10-15"), by="days")
+  gs_dates <- gsplot() %>%
+    points(oct_dates)
+  expect_equal(class(gs_dates$view.1.2$points$y), "Date")
+  expect_equal(gs_dates$view.1.2$points$x, seq_along(oct_dates))
+})