Running examples in 'tibbletime-Ex.R' failed
The error most likely occurred in:

> ### Name: as_period
> ### Title: Change 'tbl_time' periodicity
> ### Aliases: as_period
> 
> ### ** Examples
> 
> 
> # Basic usage ---------------------------------------------------------------
> 
> # FB stock prices
> data(FB)
> FB <- as_tbl_time(FB, date)
> 
> # Aggregate FB to yearly data
> as_period(FB, "yearly")
# A time tibble: 4 x 8
# Index:         date
  symbol date        open  high   low close   volume adjusted
  <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
1 FB     2013-01-02  27.4  28.2  27.4  28   69846400     28  
2 FB     2014-01-02  54.8  55.2  54.2  54.7 43195500     54.7
3 FB     2015-01-02  78.6  78.9  77.7  78.4 18177500     78.4
4 FB     2016-01-04 102.  102.   99.8 102.  37912400    102. 
> 
> # Aggregate FB to every 2 years
> as_period(FB, "2 years")
# A time tibble: 3 x 8
# Index:         date
  symbol date        open  high   low close   volume adjusted
  <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
1 FB     2013-01-02  27.4  28.2  27.4  28   69846400     28  
2 FB     2014-01-02  54.8  55.2  54.2  54.7 43195500     54.7
3 FB     2016-01-04 102.  102.   99.8 102.  37912400    102. 
> 
> # Aggregate FB to yearly data, but use the last data point available
> # in that period
> as_period(FB, "yearly", side = "end")
# A time tibble: 4 x 8
# Index:         date
  symbol date        open  high   low close   volume adjusted
  <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
1 FB     2013-12-31  54.1  54.9  53.9  54.7 43076200     54.7
2 FB     2014-12-31  79.5  79.8  77.9  78.0 19935400     78.0
3 FB     2015-12-31 106   106.  105.  105.  18298700    105. 
4 FB     2016-12-30 117.  117.  115.  115.  18600100    115. 
> 
> # Aggregate FB to yearly data, end of period, and include the first
> # endpoint
> as_period(FB, "yearly", side = "end", include_endpoints = TRUE)
# A time tibble: 5 x 8
# Index:         date
  symbol date        open  high   low close   volume adjusted
  <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
1 FB     2013-01-02  27.4  28.2  27.4  28   69846400     28  
2 FB     2013-12-31  54.1  54.9  53.9  54.7 43076200     54.7
3 FB     2014-12-31  79.5  79.8  77.9  78.0 19935400     78.0
4 FB     2015-12-31 106   106.  105.  105.  18298700    105. 
5 FB     2016-12-30 117.  117.  115.  115.  18600100    115. 
> 
> # Aggregate to weekly. Notice that it only uses the earliest day available
> # in the data set at that periodicity. It will not set the date of the first
> # row to 2013-01-01 because that date did not exist in the original data set.
> as_period(FB, "weekly")
# A time tibble: 209 x 8
# Index:         date
   symbol date        open  high   low close   volume adjusted
   <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
 1 FB     2013-01-02  27.4  28.2  27.4  28   69846400     28  
 2 FB     2013-01-07  28.7  29.8  28.6  29.4 83781800     29.4
 3 FB     2013-01-14  32.1  32.2  30.6  31.0 98892800     31.0
 4 FB     2013-01-22  29.8  30.9  29.7  30.7 55243300     30.7
 5 FB     2013-01-28  31.9  32.5  31.8  32.5 59682500     32.5
 6 FB     2013-02-04  29.1  29.2  28.0  28.1 92362200     28.1
 7 FB     2013-02-11  28.6  28.7  28.0  28.3 37361800     28.3
 8 FB     2013-02-19  28.2  29.1  28.1  28.9 49396400     28.9
 9 FB     2013-02-25  27.2  27.6  27.2  27.3 34652000     27.3
10 FB     2013-03-04  27.8  28.1  27.4  27.7 32400700     27.7
# ... with 199 more rows
> 
> # Aggregate to every other week
> as_period(FB, "2 weeks")
Error in `reconstruct()`:
! Problem while computing `.time_group = partition_index(date, period,
  start_date)`.
Caused by error in `validate_rounding_nunit()`:
! Rounding with week > 1 is not supported. Use aseconds for arbitrary units.
Backtrace:
     x
  1. +-tibbletime::as_period(FB, "2 weeks")
  2. +-tibbletime:::as_period.tbl_time(FB, "2 weeks")
  3. | +-dplyr::mutate(...)
  4. | +-tibbletime:::mutate.tbl_time(...)
  5. | | +-tibbletime::reconstruct(NextMethod(), copy_.data)
  6. | | \-tibbletime:::reconstruct.tbl_time(NextMethod(), copy_.data)
  7. | +-base::NextMethod()
  8. | \-dplyr:::mutate.data.frame(...)
  9. |   \-dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
 10. |     +-base::withCallingHandlers(...)
 11. |     \-mask$eval_all_mutate(quo)
 12. +-tibbletime::partition_index(date, period, start_date)
 13. | \-tibbletime:::make_endpoints(index, period, start_date)
 14. |   \-tibbletime:::make_endpoint_formula(...)
 15. |     +-tibbletime::floor_index(start_date, period)
 16. |     \-tibbletime:::floor_index.default(start_date, period)
 17. |       \-lubridate::floor_date(x, unit)
 18. |         \-lubridate:::.normalize_multi_week_unit(unit)
 19. |           \-timechange:::parse_units(unit)
 20. |             \-timechange:::validate_rounding_nunit(.Call(C_parse_unit, as.character(unit)))
 21. |               \-base::stop(...)
 22. \-base::.handleSimpleError(...)
 23.   \-dplyr (local) h(simpleError(msg, call))
 24.     \-rlang::abort(...)
Execution halted