Fix value of randomized to match new seed

Author: cpsievert

tests/testthat/test-ggplot-date.R

@@ -42,9 +42,9 @@ test_that("scale_x_date and irregular time series work", {
   info_w_scale <- gg2list(g)
 
   expect_equal(length(info$data), 1)  # one trace
-  expect_identical(info$data[[1]]$x[31], "2122-02-09 00:00:00")
+  expect_identical(info$data[[1]]$x[31], "2122-02-06 00:00:00")
   expect_equal(length(info_w_scale$data), 1)  # one trace
-  expect_identical(info_w_scale$data[[1]]$x[31], "2122-02-09 00:00:00")
+  expect_identical(info_w_scale$data[[1]]$x[31], "2122-02-06 00:00:00")
   expect_identical(info$layout$xaxis$type, "date")
   expect_identical(info_w_scale$layout$xaxis$type, "date")
   expect_equal(length(info_w_scale$layout), length(info$layout))  # similar layout