Skip to content

Commit

Permalink
patch release v0.4.2
Browse files Browse the repository at this point in the history
  • Loading branch information
@EdwinTh
EdwinTh committed Apr 13, 2019
1 parent 404ec28 commit 3065454
Show file tree
Hide file tree
Showing 3 changed files with 7 additions and 21 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
Package: padr
Type: Package
Title: Quickly Get Datetime Data Ready for Analysis
Version: 0.4.1
Version: 0.4.2
Author: Edwin Thoen
Maintainer: Edwin Thoen <[email protected]>
Description: Transforms datetime data into a format ready for analysis.
Expand Down
6 changes: 2 additions & 4 deletions NEWS.md
View file
Original file line number Diff line number Diff line change
@@ -1,8 +1,6 @@
# padr 0.4.9000
# padr 0.4.1 - 0.4.2

## Bug Fixes / Enhancements

- Error within `padr` for `break_above` error message is corrected. No longer prints the number of millions in millions (HT Sharla Gelfand).
Patch releases with no impact for the user of the software.

##################################################

Expand Down
20 changes: 4 additions & 16 deletions cran-comments.md
View file
Original file line number Diff line number Diff line change
@@ -1,22 +1,10 @@
Resubmission
# padr v0.4.2

As requested by Uwe Ligges changed link to other vignette in padr_custom.Rmd from

https://cran.r-project.org/web/packages/padr/vignettes/padr.html

to

https://CRAN.R-project.org/package=padr

so it is in CRAN URL canonical form.

################################################

# padr v0.4.0
Patch release as requested by Kurt Hornik. Removed `sample` from unit tests so all unit tests will pass with the new sampler introduced in R 3.6.0

## Test environments
* local OS X install, R 3.4.2
* ubuntu 14.04.5 (on travis-ci), R 3.4.2
* local OS X install, R 3.5.3
* Ubuntu 14.04.5 (on travis-ci), R 3.5.2
* win-builder (devel and release)

## R CMD check results
Expand Down

1 comment on commit 3065454

@lintr-bot
Copy link

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

tests/testthat/test_fill_functions.R:50:1: style: lines should not be more than 80 characters.

​  x <- suppressWarnings(coffee %>% thicken('day') %>% group_by(time_stamp_day) %>%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_fill_functions.R:50:44: style: Only use double-quotes.

​  x <- suppressWarnings(coffee %>% thicken('day') %>% group_by(time_stamp_day) %>%
                                           ^~~~~

tests/testthat/test_formatting_funcs.R:70:1: style: lines should not be more than 80 characters.

​  expect_equal(find_next_val(span_time(201601, len_out = 3, by = "week"), 7 * 24 * 3600),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_formatting_funcs.R:83:1: style: lines should not be more than 80 characters.

​  expect_equal(gutl(span_time(201601, len_out = 2)), round(30.41667 * 24 * 3600))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_formatting_funcs.R:87:1: style: lines should not be more than 80 characters.

​  expect_equal(gutl(span_time(20160101, len_out = 5)[c(1, 3, 5)]), 2 * 24 * 3600)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_formatting_funcs.R:89:1: style: lines should not be more than 80 characters.

​  expect_equal(gutl(span_time("20160101 00", len_out = 10)[c(2, 5, 8)]), 3600 * 3)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_formatting_funcs.R:91:1: style: lines should not be more than 80 characters.

​  expect_equal(gutl(span_time("20160101 00", len_out = 10)[c(2, 5, 8)]), 3600 * 3)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_formatting_funcs.R:129:1: style: lines should not be more than 80 characters.

​               c("2016-01-01 2016-01-03", "2016-01-03 2016-01-04", "2016-01-04 2016-01-05"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_formatting_funcs.R:131:1: style: lines should not be more than 80 characters.

​               c("2016-01-01 2016-01-03", "2016-01-03 2016-01-04", "2016-01-04 2016-01-06"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_get_interval.R:200:1: style: lines should not be more than 80 characters.

​  expect_error(stop_on_NA(x2), "interval cannot be determined when x contains NAs")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_get_interval.R:202:1: style: lines should not be more than 80 characters.

​  expect_error(get_interval(x2), "interval cannot be determined when x contains NAs")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad_cust.R:9:1: style: lines should not be more than 80 characters.

​  Either run thicken_cust in combination with aggregation first, or rerun this function
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad_cust.R:49:1: style: lines should not be more than 80 characters.

​                                 val  = c(1, NA, 1, 1, NA, 1, 1, NA, 1, 1, NA, 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad_cust.R:68:1: style: lines should not be more than 80 characters.

​    one_group %>% group_by(grp) %>% pad_cust(spanned = sp, drop_last_spanned = FALSE),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad_cust.R:83:1: style: lines should not be more than 80 characters.

​    two_group %>% group_by(grp1) %>% pad_cust(span = sp, drop_last_spanned = FALSE),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad_cust.R:88:1: style: lines should not be more than 80 characters.

​    pad_cust(two_group, span = sp, group = c("grp1", "grp2"), drop_last_spanned = FALSE),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad_cust.R:93:1: style: lines should not be more than 80 characters.

​    two_group %>% group_by(grp1, grp2) %>% pad_cust(span = sp, drop_last_spanned = FALSE),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad_int.R:14:30: style: Only use double-quotes.

​  df$year <- ymd(paste(df$y, '0101', sep = ''))
                             ^~~~~~

tests/testthat/test_pad_int.R:14:44: style: Only use double-quotes.

​  df$year <- ymd(paste(df$y, '0101', sep = ''))
                                           ^~

tests/testthat/test_pad_int.R:15:28: style: Only use double-quotes.

​  expect_error(pad_int(df, 'g'))
                           ^~~

tests/testthat/test_pad_int.R:16:29: style: Only use double-quotes.

​  expect_error(pad_int(df,  'year'))
                            ^~~~~~

tests/testthat/test_pad_int.R:17:31: style: Only use double-quotes.

​  expect_error(pad_int(df$y,  'year'))
                              ^~~~~~

tests/testthat/test_pad_int.R:21:35: style: Only use double-quotes.

​  df_single <- df %>% filter(g == 'A')
                                  ^~~

tests/testthat/test_pad_int.R:22:36: style: Only use double-quotes.

​  expect_equal( pad_int(df_single, 'y') %>% nrow, 7)
                                   ^~~

tests/testthat/test_pad_int.R:23:36: style: Only use double-quotes.

​  expect_equal( pad_int(df_single, 'y', start_val = 2004) %>% nrow, 9)
                                   ^~~

tests/testthat/test_pad_int.R:24:36: style: Only use double-quotes.

​  expect_equal( pad_int(df_single, 'y', start_val = 2007) %>% nrow, 6)
                                   ^~~

tests/testthat/test_pad_int.R:25:36: style: Only use double-quotes.

​  expect_equal( pad_int(df_single, 'y', end_val = 2014) %>% nrow, 9)
                                   ^~~

tests/testthat/test_pad_int.R:26:36: style: Only use double-quotes.

​  expect_equal( pad_int(df_single, 'y', end_val = 2011) %>% nrow, 6)
                                   ^~~

tests/testthat/test_pad_int.R:27:36: style: Only use double-quotes.

​  expect_equal( pad_int(df_single, 'y', step = 2) %>% nrow, 4)
                                   ^~~

tests/testthat/test_pad_int.R:28:36: style: Only use double-quotes.

​  expect_error( pad_int(df_single, 'y', step = 3))
                                   ^~~

tests/testthat/test_pad_int.R:32:29: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g') %>% nrow, 12)
                            ^~~

tests/testthat/test_pad_int.R:32:42: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g') %>% nrow, 12)
                                         ^~~

tests/testthat/test_pad_int.R:33:29: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g', start_val = 2004) %>% nrow, 17)
                            ^~~

tests/testthat/test_pad_int.R:33:42: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g', start_val = 2004) %>% nrow, 17)
                                         ^~~

tests/testthat/test_pad_int.R:34:29: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g', start_val = 2007) %>% nrow, 11)
                            ^~~

tests/testthat/test_pad_int.R:34:42: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g', start_val = 2007) %>% nrow, 11)
                                         ^~~

tests/testthat/test_pad_int.R:35:29: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g', end_val = 2014) %>% nrow, 17)
                            ^~~

tests/testthat/test_pad_int.R:35:42: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g', end_val = 2014) %>% nrow, 17)
                                         ^~~

tests/testthat/test_pad_int.R:36:29: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g', end_val = 2011) %>% nrow, 11)
                            ^~~

tests/testthat/test_pad_int.R:36:42: style: Only use double-quotes.

​  expect_equal( pad_int(df, 'y', group = 'g', end_val = 2011) %>% nrow, 11)
                                         ^~~

tests/testthat/test_pad_int.R:37:30: style: Only use double-quotes.

​  expect_equal( pad_int(df2, 'y', group = 'g', step = 2) %>% nrow, 6)
                             ^~~

tests/testthat/test_pad_int.R:37:43: style: Only use double-quotes.

​  expect_equal( pad_int(df2, 'y', group = 'g', step = 2) %>% nrow, 6)
                                          ^~~

tests/testthat/test_pad_int.R:38:30: style: Only use double-quotes.

​  expect_error( pad_int(df2, 'y', group = 'g', step = 3) )
                             ^~~

tests/testthat/test_pad_int.R:38:43: style: Only use double-quotes.

​  expect_error( pad_int(df2, 'y', group = 'g', step = 3) )
                                          ^~~

tests/testthat/test_pad.R:43:11: style: Only use double-quotes.

​test_that('gives warning and same result when start_val and end_val are NULL', {
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:56:1: style: lines should not be more than 80 characters.

​  expect_error( nrow(pad(large_df_grp, interval = "hour", break_above = 0.07, group = "grp")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:57:1: style: lines should not be more than 80 characters.

​  expect_equal( nrow(pad(large_df, interval = "hour", break_above = 0.0351)), 35064)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:63:1: style: lines should not be more than 80 characters.

​test_that('gives correct output when end_val and/or start_val are specified, date', {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:63:11: style: Only use double-quotes.

​test_that('gives correct output when end_val and/or start_val are specified, date', {
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:69:40: style: Only use double-quotes.

​               seq(ymd(20160101), by = 'day', length.out = 4))
                                       ^~~~~

tests/testthat/test_pad.R:72:1: style: lines should not be more than 80 characters.

​test_that("pad gives informative error when start_val or end_val is of wrong class", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:80:1: style: lines should not be more than 80 characters.

​test_that('gives correct output when end_val and/or start_val are specified, posix', {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:80:11: style: Only use double-quotes.

​test_that('gives correct output when end_val and/or start_val are specified, posix', {
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:81:30: style: Only use double-quotes.

​  x <- data.frame(tm = ymd_h('20160102 16'))
                             ^~~~~~~~~~~~~

tests/testthat/test_pad.R:82:18: style: Only use double-quotes.

​  s_val <- ymd_h('20160101 16')
                 ^~~~~~~~~~~~~

tests/testthat/test_pad.R:83:18: style: Only use double-quotes.

​  e_val <- ymd_h('20160104 16')
                 ^~~~~~~~~~~~~

tests/testthat/test_pad.R:84:30: style: Only use double-quotes.

​  compare <- seq(s_val, by = 'day', length.out = 4)
                             ^~~~~

tests/testthat/test_pad.R:109:52: style: Only use double-quotes.

​  mnths <- seq(ymd(20160101), length.out = 6, by = 'month')
                                                   ^~~~~~~

tests/testthat/test_pad.R:118:52: style: Only use double-quotes.

​  mnths <- seq(ymd(20160101), length.out = 6, by = 'month')
                                                   ^~~~~~~

tests/testthat/test_pad.R:119:1: style: lines should not be more than 80 characters.

​  x <- data.frame(m = rep( mnths[c(2, 4, 5)], 2), g = letters[c(1, 1, 1, 2, 2, 2)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:120:32: style: Only use double-quotes.

​  expect_equal( pad(x, group = 'g', interval = "month")$m, rep(mnths[2:5], 2) )
                               ^~~

tests/testthat/test_pad.R:121:1: style: lines should not be more than 80 characters.

​  expect_equal( sw(pad(x, group = 'g', start_val = mnths[1]))$m, rep(mnths[1:5], 2) )
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:121:35: style: Only use double-quotes.

​  expect_equal( sw(pad(x, group = 'g', start_val = mnths[1]))$m, rep(mnths[1:5], 2) )
                                  ^~~

tests/testthat/test_pad.R:122:1: style: lines should not be more than 80 characters.

​  expect_equal( sw(pad(x, group = 'g', end_val = mnths[6]))$m, rep(mnths[2:6], 2) )
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:122:35: style: Only use double-quotes.

​  expect_equal( sw(pad(x, group = 'g', end_val = mnths[6]))$m, rep(mnths[2:6], 2) )
                                  ^~~

tests/testthat/test_pad.R:126:52: style: Only use double-quotes.

​  mnths <- seq(ymd(20160101), length.out = 6, by = 'month')
                                                   ^~~~~~~

tests/testthat/test_pad.R:130:1: style: lines should not be more than 80 characters.

​  expect_equal( pad(x, group = c('g1', 'g2'), interval = "months")$m, rep(mnths[2:5], 4) )
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:130:34: style: Only use double-quotes.

​  expect_equal( pad(x, group = c('g1', 'g2'), interval = "months")$m, rep(mnths[2:5], 4) )
                                 ^~~~

tests/testthat/test_pad.R:130:40: style: Only use double-quotes.

​  expect_equal( pad(x, group = c('g1', 'g2'), interval = "months")$m, rep(mnths[2:5], 4) )
                                       ^~~~

tests/testthat/test_pad.R:131:37: style: Only use double-quotes.

​  expect_equal( sw(pad(x, group = c('g1', 'g2'), start_val = mnths[1]))$m,
                                    ^~~~

tests/testthat/test_pad.R:131:43: style: Only use double-quotes.

​  expect_equal( sw(pad(x, group = c('g1', 'g2'), start_val = mnths[1]))$m,
                                          ^~~~

tests/testthat/test_pad.R:133:37: style: Only use double-quotes.

​  expect_equal( sw(pad(x, group = c('g1', 'g2'), end_val = mnths[6]))$m,
                                    ^~~~

tests/testthat/test_pad.R:133:43: style: Only use double-quotes.

​  expect_equal( sw(pad(x, group = c('g1', 'g2'), end_val = mnths[6]))$m,
                                          ^~~~

tests/testthat/test_pad.R:138:52: style: Only use double-quotes.

​  mnths <- seq(ymd(20160101), length.out = 5, by = 'month')
                                                   ^~~~~~~

tests/testthat/test_pad.R:162:52: style: Only use double-quotes.

​  expect_error(pad(coffee, group = c("time_stamp", 'grp')))
                                                   ^~~~~

tests/testthat/test_pad.R:173:57: style: Only use double-quotes.

​  check_val <- seq( ymd(20150101), length.out = 4, by = 'year')
                                                        ^~~~~~

tests/testthat/test_pad.R:175:1: style: lines should not be more than 80 characters.

​  expect_equal( pad(one_var, by = "x_year", interval = "year")$x_year, check_val)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:176:1: style: lines should not be more than 80 characters.

​  expect_equal( pad(one_var_grps, by = "x_year", group = 'grp',  interval = "year")$x_year,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:176:58: style: Only use double-quotes.

​  expect_equal( pad(one_var_grps, by = "x_year", group = 'grp',  interval = "year")$x_year,
                                                         ^~~~~

tests/testthat/test_pad.R:179:66: style: Only use double-quotes.

​  expect_equal( pad(two_var_grps, "year", by = "x_year", group = 'grp')$x_year,
                                                                 ^~~~~

tests/testthat/test_pad.R:211:1: style: lines should not be more than 80 characters.

​  expect_equal(pad(data.frame(x_year, 1), "year", end_val = as.Date("2021-01-01")) %>%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:213:1: style: lines should not be more than 80 characters.

​  expect_equal(pad(data.frame(x_year, 1), "year", start_val = as.Date("2012-01-01")) %>%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_pad.R:228:1: style: lines should not be more than 80 characters.

​    "2016-07-07 09:11:21", "2016-07-07 09:46:48", "2016-07-09 13:25:17", "2016-07-10 10:45:11"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_span_date.R:93:1: style: lines should not be more than 80 characters.

​  year_span <- seq.Date(as.Date("2011-01-01"), as.Date("2015-01-01"), by = "year")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_span_date.R:94:1: style: lines should not be more than 80 characters.

​  month_span <- seq.Date(as.Date("2011-01-01"), as.Date("2015-01-01"), by = "month")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_span_date.R:113:1: style: lines should not be more than 80 characters.

​  hour_span <- seq.POSIXt(p("2011-01-01 00:00:00"), p("2011-01-01 23:00:00"), by = "hour")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_span_date.R:114:1: style: lines should not be more than 80 characters.

​  min_span <- seq.POSIXt(p("2011-01-01 00:00:00"), p("2011-01-01 00:25:00"), by = "min")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_span.R:118:1: style: lines should not be more than 80 characters.

​  expect_error(span_around(coffee$time_stamp, "hour", start_shift = "12 hour"), NA)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_span.R:120:1: style: lines should not be more than 80 characters.

​  expect_error(span_around(coffee$time_stamp, "hour", end_shift = "12 hour"), NA)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_span.R:144:1: style: lines should not be more than 80 characters.

​  expect_equal(span_around(x, "day", start_shift = "1 day")[1], as.Date("2016-07-08"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_cust.R:1:8: style: Only use double-quotes.

​source('library.R')
       ^~~~~~~~~~~

tests/testthat/test_thicken_cust.R:11:1: style: lines should not be more than 80 characters.

​                 "Dropping all values in the datetime var that are smaller than smallest spanned")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_cust.R:34:1: style: lines should not be more than 80 characters.

​    "2016-07-07 09:11:21", "2016-07-07 09:46:48", "2016-07-09 13:25:17", "2016-07-10 10:45:11"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_cust.R:41:1: style: lines should not be more than 80 characters.

​                 "Dropping all values in the datetime var that are smaller than smallest spanned")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_helpers.R:9:23: style: Only use double-quotes.

​attr(b_ct_tz_is_NULL, 'tzone') <- NULL
                      ^~~~~~~

tests/testthat/test_thicken_integration.R:34:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_year_2_dts, "year", rounding = "up", by = "ts2")$ts2_year,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:40:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_year_2_dts, "year", by = "ts2", start_val = s)$ts2_year,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:43:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_year_2_dts, "y", by = "ts2", start_val = s)$ts2_year,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:49:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_year, "year", rounding = "up", start_val = s)$time_stamp_year,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:94:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_month_2_dts, "month", rounding = "up", by = "ts2")$ts2_month,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:97:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_month_2_dts, "month", colname = "t", by = "ts2")$t,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:100:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_month_2_dts, "month", by = "ts2", start_val = s)$ts2_month,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:109:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_month, "month", rounding = "up", start_val = s)$time_stamp_month,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:152:1: style: lines should not be more than 80 characters.

​  expect_equal(suppressWarnings(thicken(coffee_day, "day", start_val = s))$time_stamp_day,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:158:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_day_2_dts, "day", rounding = "up", by = "ts2")$ts2_day,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:227:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_hour_2_dts, "hour", rounding = "up", by = "ts2")$ts2_hour,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:233:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_hour_2_dts, "hour", by = "ts2", start_val = s)$ts2_hour,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:237:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_hour_2_dts, "h", by = "ts2", start_val = s)$ts2_hour,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken_integration.R:243:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(coffee_hour, "hour", rounding = "up", start_val = s)$time_stamp_hour,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken.R:48:1: style: lines should not be more than 80 characters.

​  expect_error(suppressWarnings(thicken(df_with_one_date, interval = "quarter")), NA)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken.R:70:1: style: lines should not be more than 80 characters.

​  expect_equal(thicken(x, start_val = as.Date("2016-01-02"), interval = "year")  %>%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken.R:80:1: style: lines should not be more than 80 characters.

​  expect_equal(sw(thicken(x_df, interval = "month"))$x_sec_month %>% get_interval,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken.R:92:1: style: lines should not be more than 80 characters.

​  day_to_year <- thicken(day_sorted %>% as.data.frame, colname = "x", interval = "year")$x
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken.R:117:1: style: lines should not be more than 80 characters.

​  expect_equal(colnames(thicken(a_df, interval = "2 days", colname = "jos"))[3], "jos")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken.R:124:1: style: lines should not be more than 80 characters.

​  expect_equal(sw(dplyr::as_data_frame(df_with_one_date) %>% thicken("2 mon") %>% class),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken.R:126:1: style: lines should not be more than 80 characters.

​  expect_equal(sw(data.table::as.data.table(df_with_one_date) %>% thicken("2 mon") %>%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_thicken.R:142:1: style: lines should not be more than 80 characters.

​Returned dataframe contains original observations, with NA values for d and d_week.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Please sign in to comment.