Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [17s/18s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(rlang)
  > library(tibble)
  > library(lubridate)
  
  Attaching package: 'lubridate'
  
  The following objects are masked from 'package:base':
  
      date, intersect, setdiff, union
  
  > library(testthat)
  
  Attaching package: 'testthat'
  
  The following objects are masked from 'package:rlang':
  
      is_false, is_null, is_true
  
  > library(tsibble)
  
  Attaching package: 'tsibble'
  
  The following object is masked from 'package:lubridate':
  
      interval
  
  > 
  > set.seed(2018)
  > test_check("tsibble")
  ── 1. Failure: 4 day interval (@test-append.R#27)  ─────────────────────────────
  append_row(tsbl)[6, ] not equal to `ref_tbl`.
  Attributes: < Names: 1 string mismatch >
  Attributes: < Length mismatch: comparison on first 2 components >
  Attributes: < Component "class": Lengths (4, 3) differ (string compare on first 3) >
  Attributes: < Component "class": 3 string mismatches >
  Attributes: < Component 2: Modes: character, numeric >
  Attributes: < Component 2: Attributes: < Modes: list, NULL > >
  Attributes: < Component 2: Attributes: < Lengths: 1, 0 > >
  Attributes: < Component 2: Attributes: < names for target but not for current > >
  Attributes: < Component 2: Attributes: < current is not list-like > >
  ...
  
  ── 2. Error: (unknown) (@test-append.R#31)  ────────────────────────────────────
  x is not a tsibble.
  Backtrace:
    1. tsibble::group_by_key(.)
    8. dplyr::slice(., 1:3)
   10. tsibble:::by_row(slice, .data, ordered = ascending, ..., .preserve = .preserve)
   11. tsibble:::update_meta(tbl, .data, ordered = ordered, interval = interval(.data))
   12. tsibble:::restore_index_class(...)
   13. tsibble::interval(new)
   14. tsibble:::not_tsibble(x)
  
  ── 3. Error: (unknown) (@test-bind.R#11)  ──────────────────────────────────────
  `vars` must be a character vector.
  Backtrace:
   1. dplyr::mutate(tsbl, date = date + rep(5:9, each = 2), value2 = 2)
   2. tsibble:::mutate.tbl_ts(...)
   3. tsibble:::retain_tsibble(mut_data, key(.data), index(.data))
   4. tsibble:::duplicated_key_index(data, key, index)
   5. dplyr::grouped_df(as_tibble(data), key)
  
  ── 4. Error: (unknown) (@test-dplyr.R#5)  ──────────────────────────────────────
  x is not a tsibble.
  Backtrace:
    1. dplyr::group_by(., Sensor)
    8. dplyr::slice(., 1:48)
   10. tsibble:::by_row(slice, .data, ordered = ascending, ..., .preserve = .preserve)
   11. tsibble:::update_meta(tbl, .data, ordered = ordered, interval = interval(.data))
   12. tsibble:::restore_index_class(...)
   13. tsibble::interval(new)
   14. tsibble:::not_tsibble(x)
  
  ── 5. Error: (unknown) (@test-empty.R#32)  ─────────────────────────────────────
  `vars` must be a character vector.
  Backtrace:
    8. dplyr::mutate(., Sensor = as.factor(Sensor))
   10. tsibble:::retain_tsibble(mut_data, key(.data), index(.data))
   11. tsibble:::duplicated_key_index(data, key, index)
   12. dplyr::grouped_df(as_tibble(data), key)
  
  ── 6. Error: (unknown) (@test-gaps.R#93)  ──────────────────────────────────────
  x is not a tsibble.
  Backtrace:
    1. tsibble::group_by_key(.)
    8. dplyr::slice(., 1:10)
   10. tsibble:::by_row(slice, .data, ordered = ascending, ..., .preserve = .preserve)
   11. tsibble:::update_meta(tbl, .data, ordered = ordered, interval = interval(.data))
   12. tsibble:::restore_index_class(...)
   13. tsibble::interval(new)
   14. tsibble:::not_tsibble(x)
  
  ── 7. Error: (unknown) (@test-groups.R#3)  ─────────────────────────────────────
  `vars` must be a character vector.
  Backtrace:
    8. dplyr::mutate(., Sensor = as.factor(Sensor))
   10. tsibble:::retain_tsibble(mut_data, key(.data), index(.data))
   11. tsibble:::duplicated_key_index(data, key, index)
   12. dplyr::grouped_df(as_tibble(data), key)
  
  ── 8. Error: From Date to year-week, year-month, year-quarter and year (@test-in
  no applicable method for 'index_by' applied to an object of class "c('tbl_df', 'tbl', 'data.frame')"
  Backtrace:
   8. tsibble::index_by(., yrqtr = yearquarter(yrmth))
  
  ── 9. Failure: index_by() with group_by() (@test-indexby.R#106)  ───────────────
  `res1` inherits from `grouped_df/tbl_df/tbl/data.frame` not `tbl_ts`.
  
  ── 10. Failure: index_by() with group_by() (@test-indexby.R#107)  ──────────────
  as_tibble(res1) not equal to tibble(...).
  Names: 2 string mismatches
  Attributes: < Names: 1 string mismatch >
  Attributes: < Length mismatch: comparison on first 2 components >
  Attributes: < Component "class": Lengths (4, 3) differ (string compare on first 3) >
  Attributes: < Component "class": 3 string mismatches >
  Attributes: < Component 2: Modes: list, numeric >
  Attributes: < Component 2: names for target but not for current >
  Attributes: < Component 2: Attributes: < Modes: list, NULL > >
  Attributes: < Component 2: Attributes: < Lengths: 3, 0 > >
  ...
  
  ── 11. Failure: summarise scoped variants (@test-indexby.R#130)  ───────────────
  Names of `ts_all` ('date2', 'date', 'group', 'value1', 'value2', 'value3') don't match 'date2', 'value1', 'value2', 'value3'
  
  ── 12. Failure: summarise scoped variants (@test-indexby.R#136)  ───────────────
  Names of `ts_all` ('yrmth', 'date', 'group', 'value1', 'value2', 'value3') don't match 'yrmth', 'value1', 'value2', 'value3'
  
  ── 13. Failure: scoped variants with group_by() (@test-indexby.R#156)  ─────────
  Names of `ts_all` ('group', 'yrmth', 'date', 'value1', 'value2', 'value3') don't match 'group', 'yrmth', 'value1', 'value2', 'value3'
  
  ── 14. Error: index_by() with pedestrian (@test-indexby.R#183)  ────────────────
  x is not a tsibble.
  Backtrace:
    9. dplyr::filter(., Date_Time == min(Date_Time))
   11. tsibble:::by_row(...)
   12. tsibble:::update_meta(tbl, .data, ordered = ordered, interval = interval(.data))
   13. tsibble:::restore_index_class(...)
   14. tsibble::interval(new)
   15. tsibble:::not_tsibble(x)
  
  ── 15. Error: left_join() (@test-join.R#13)  ───────────────────────────────────
  `vars` must be a character vector.
  Backtrace:
    9. dplyr::left_join(., y_key)
   11. tsibble:::update_meta(...)
   12. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   13. tsibble:::duplicated_key_index(data, key, index)
   14. dplyr::grouped_df(as_tibble(data), key)
  
  ── 16. Error: right_join() (@test-join.R#21)  ──────────────────────────────────
  `vars` must be a character vector.
  Backtrace:
    9. dplyr::right_join(., y_key)
   11. tsibble:::update_meta(...)
   12. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   13. tsibble:::duplicated_key_index(data, key, index)
   14. dplyr::grouped_df(as_tibble(data), key)
  
  ── 17. Error: full_join() (@test-join.R#36)  ───────────────────────────────────
  `vars` must be a character vector.
  Backtrace:
    9. dplyr::full_join(., y_idx)
   11. tsibble:::update_meta(...)
   12. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   13. tsibble:::duplicated_key_index(data, key, index)
   14. dplyr::grouped_df(as_tibble(data), key)
  
  ── 18. Error: inner_join() (@test-join.R#44)  ──────────────────────────────────
  `vars` must be a character vector.
  Backtrace:
    9. dplyr::inner_join(., y_key)
   11. tsibble:::update_meta(...)
   12. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   13. tsibble:::duplicated_key_index(data, key, index)
   14. dplyr::grouped_df(as_tibble(data), key)
  
  ── 19. Failure: mutual key and index #102 (@test-join.R#83)  ───────────────────
  `left_join(x, yy, by = "year")` threw an error with unexpected message.
  Expected match: "valid"
  Actual message: "`vars` must be a character vector."
  Backtrace:
    1. testthat::expect_error(left_join(x, yy, by = "year"), "valid")
    7. tsibble:::left_join.tbl_ts(x, yy, by = "year")
    8. tsibble:::update_meta(...)
    9. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   10. tsibble:::duplicated_key_index(data, key, index)
   11. dplyr::grouped_df(as_tibble(data), key)
  
  ── 20. Failure: mutating joins abort for duplicates (@test-join.R#89)  ─────────
  `left_join(x, y)` threw an error with unexpected message.
  Expected match: "valid"
  Actual message: "`vars` must be a character vector."
  Backtrace:
    1. testthat::expect_error(left_join(x, y), "valid")
    7. tsibble:::left_join.tbl_ts(x, y)
    8. tsibble:::update_meta(...)
    9. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   10. tsibble:::duplicated_key_index(data, key, index)
   11. dplyr::grouped_df(as_tibble(data), key)
  
  ── 21. Failure: mutating joins abort for duplicates (@test-join.R#90)  ─────────
  `right_join(x, y)` threw an error with unexpected message.
  Expected match: "valid"
  Actual message: "`vars` must be a character vector."
  Backtrace:
    1. testthat::expect_error(right_join(x, y), "valid")
    7. tsibble:::right_join.tbl_ts(x, y)
    8. tsibble:::update_meta(...)
    9. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   10. tsibble:::duplicated_key_index(data, key, index)
   11. dplyr::grouped_df(as_tibble(data), key)
  
  ── 22. Failure: mutating joins abort for duplicates (@test-join.R#91)  ─────────
  `inner_join(x, y)` threw an error with unexpected message.
  Expected match: "valid"
  Actual message: "`vars` must be a character vector."
  Backtrace:
    1. testthat::expect_error(inner_join(x, y), "valid")
    7. tsibble:::inner_join.tbl_ts(x, y)
    8. tsibble:::update_meta(...)
    9. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   10. tsibble:::duplicated_key_index(data, key, index)
   11. dplyr::grouped_df(as_tibble(data), key)
  
  ── 23. Failure: mutating joins abort for duplicates (@test-join.R#92)  ─────────
  `full_join(x, y)` threw an error with unexpected message.
  Expected match: "valid"
  Actual message: "`vars` must be a character vector."
  Backtrace:
    1. testthat::expect_error(full_join(x, y), "valid")
    7. tsibble:::full_join.tbl_ts(x, y)
    8. tsibble:::update_meta(...)
    9. tsibble:::retain_tsibble(new, key = key(old), index = index(old))
   10. tsibble:::duplicated_key_index(data, key, index)
   11. dplyr::grouped_df(as_tibble(data), key)
  
  ── 24. Failure: slide() and its variants (@test-slide.R#131)  ──────────────────
  slide_dfc(x, ~data.frame(x = .), .size = 1) not equal to data.frame(x = 1, x1 = 2, x2 = 3, x3 = 4, x4 = 5).
  Names: 5 string mismatches
  
  ── 25. Failure: pslide() and its variants (@test-slide.R#205)  ─────────────────
  pslide_dfc(df, my_sum2, .size = 2) not equal to tibble(x = NA, x1 = 3L, x2 = 5L, x3 = 7L, x4 = 9L).
  Names: 5 string mismatches
  Attributes: < Component "class": Lengths (1, 3) differ (string compare on first 1) >
  Attributes: < Component "class": 1 string mismatch >
  
  ── 26. Failure: stretch() and its variants (@test-stretch.R#72)  ───────────────
  stretch_dfc(x, ~data.frame(x = mean(.)), .step = 1) not equal to data.frame(x = 1, x1 = 1.5, x2 = 2, x3 = 2.5, x4 = 3).
  Names: 5 string mismatches
  
  ── 27. Failure: pstretch() and its variants (@test-stretch.R#122)  ─────────────
  pstretch_dfc(df, my_sum2, .step = 2, .fill = NULL) not equal to data.frame(x = 1L, x1 = 6L, x2 = 15L).
  Names: 3 string mismatches
  
  ── 28. Error: (unknown) (@test-tidyr.R#11)  ────────────────────────────────────
  x is not a tsibble.
  Backtrace:
    1. dplyr::group_by(., Sensor)
    8. dplyr::slice(., 1:10)
   10. tsibble:::by_row(slice, .data, ordered = ascending, ..., .preserve = .preserve)
   11. tsibble:::update_meta(tbl, .data, ordered = ordered, interval = interval(.data))
   12. tsibble:::restore_index_class(...)
   13. tsibble::interval(new)
   14. tsibble:::not_tsibble(x)
  
  ── 29. Failure: tile() and its variants (@test-tile.R#51)  ─────────────────────
  tile_dfc(x, ~data.frame(x = .), .size = 1) not equal to data.frame(x = 1, x1 = 2, x2 = 3, x3 = 4, x4 = 5).
  Names: 5 string mismatches
  
  ── 30. Failure: ptile() and its variants (@test-tile.R#101)  ───────────────────
  ptile_dfc(df, my_sum2, .size = 2) not equal to data.frame(x = 3L, x1 = 7L, x2 = 5L).
  Names: 3 string mismatches
  
  ── 31. Failure: POSIXt with 1 second interval (@test-tsibble.R#110)  ───────────
  format(groups(tsbl)) not identical to "NULL".
  Lengths differ: 0 is not 1
  
  ── 32. Failure: A single key (@test-tsibble.R#324)  ────────────────────────────
  format(groups(tsbl)) not identical to "NULL".
  Lengths differ: 0 is not 1
  
  ── 33. Failure: as_tsibble.tbl_ts & as_tsibble.grouped_df (@test-tsibble.R#378) 
  `ped` not identical to `pedestrian`.
  Attributes: < Component "key": Component ".rows": Attributes: < Modes: list, NULL > >
  Attributes: < Component "key": Component ".rows": Attributes: < Lengths: 2, 0 > >
  Attributes: < Component "key": Component ".rows": Attributes: < names for target but not for current > >
  Attributes: < Component "key": Component ".rows": Attributes: < current is not list-like > >
  
  # A tibble: 132,074 x 5
  # Groups:   Date [731]
     Sensor         Date_Time           Date        Time Count
     <chr>          <dttm>              <date>     <int> <int>
   1 Birrarung Marr 2015-01-01 00:00:00 2015-01-01     0  1630
   2 Birrarung Marr 2015-01-01 01:00:00 2015-01-01     1   826
   3 Birrarung Marr 2015-01-01 02:00:00 2015-01-01     2   567
   4 Birrarung Marr 2015-01-01 03:00:00 2015-01-01     3   264
   5 Birrarung Marr 2015-01-01 04:00:00 2015-01-01     4   139
   6 Birrarung Marr 2015-01-01 05:00:00 2015-01-01     5    77
   7 Birrarung Marr 2015-01-01 06:00:00 2015-01-01     6    44
   8 Birrarung Marr 2015-01-01 07:00:00 2015-01-01     7    56
   9 Birrarung Marr 2015-01-01 08:00:00 2015-01-01     8   113
  10 Birrarung Marr 2015-01-01 09:00:00 2015-01-01     9   166
  # … with 132,064 more rows
  ── 34. Failure: build_tsibble() (@test-tsibble.R#401)  ─────────────────────────
  `print(idx_drop)` did not throw an error.
  
  ── 35. Failure: build_tsibble() (@test-tsibble.R#407)  ─────────────────────────
  `pedestrian %>% mutate(Date_Time = as.character(Date_Time))` threw an error with unexpected message.
  Expected match: "Unsupported index"
  Actual message: "`vars` must be a character vector."
  Backtrace:
    1. testthat::expect_error(...)
   10. dplyr::mutate(., Date_Time = as.character(Date_Time))
   16. tsibble:::retain_tsibble(mut_data, key(.data), index(.data))
   17. tsibble:::duplicated_key_index(data, key, index)
   18. dplyr::grouped_df(as_tibble(data), key)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 545 | SKIPPED: 2 | WARNINGS: 4 | FAILED: 35 ]
  1. Failure: 4 day interval (@test-append.R#27) 
  2. Error: (unknown) (@test-append.R#31) 
  3. Error: (unknown) (@test-bind.R#11) 
  4. Error: (unknown) (@test-dplyr.R#5) 
  5. Error: (unknown) (@test-empty.R#32) 
  6. Error: (unknown) (@test-gaps.R#93) 
  7. Error: (unknown) (@test-groups.R#3) 
  8. Error: From Date to year-week, year-month, year-quarter and year (@test-indexby.R#84) 
  9. Failure: index_by() with group_by() (@test-indexby.R#106) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted