tests/testthat/test_gather_multi.R

In m-clark/tidyext: Tidy Extensions for Data Processing

# context('test gather_multi')
#
# # debugonce(gather_multi)
# # test = gather_multi(demo_data_wide,
# #              key = wave,
# #              values = c('X', 'Y', 'Z'),
# #              varlist = c(vars(starts_with('X')),
# #                             vars(starts_with('Y')),
# #                             vars(starts_with('Z'))),
# #              -id)
# # test
# demo_data_wide <- data.frame(id = 1:10,
#                             X = matrix(rnorm(40), ncol = 4),
#                             Y = matrix(sample(0:1, 40, replace = T), ncol = 4),
#                             Z = matrix(rpois(40, 5), ncol = 4))
#
# set.seed(123)
# demo_data_wide_miss <- demo_data_wide
# demo_data_wide_miss[sample(1:10, 3), 'X.1'] <- NA
# demo_data_wide_miss[sample(1:10, 3), 'Y.2'] <- NA
# demo_data_wide_miss[sample(1:10, 3), 'Z.3'] <- NA
#
# test_that('gather_multi returns a data frame', {
#   test_dat <- gather_multi(demo_data_wide,
#                            key = wave,
#                            values = c('X', 'Y', 'Z'),
#                            varlist = vars(starts_with('X'),
#                                           starts_with('Y'),
#                                           starts_with('Z')))
#   expect_is(test_dat, 'data.frame')
# })
#
# test_that('gather_multi takes a quoted key', {
#   test_dat <- gather_multi(demo_data_wide,
#                            key = 'wave',
#                            values = c('X', 'Y', 'Z'),
#                            varlist = vars(starts_with('X'),
#                                           starts_with('Y'),
#                                           starts_with('Z')))
#   expect_is(test_dat, 'data.frame')
# })
#
# test_that('gather_multi can use key_func', {
#   test_dat <- gather_multi(demo_data_wide,
#                            key = 'wave',
#                            values = c('X', 'Y', 'Z'),
#                            varlist = vars(starts_with('X'),
#                                           starts_with('Y'),
#                                           starts_with('Z')),
#                            key_func = function(x) substr(x, start=3, stop=3))
#   expect_is(test_dat, 'data.frame')
# })
#
# test_that('gather_multi can use key_func', {
#   test_dat <- gather_multi(demo_data_wide,
#                            key = wave,
#                            values = c('X', 'Y', 'Z'),
#                            varlist = vars(starts_with('X'),
#                                           starts_with('Y'),
#                                           starts_with('Z')),
#                            key_func = function(x) substr(x, start=3, stop=3))
#   expect_is(test_dat, 'data.frame')
# })
#
# test_that('gather_multi takes dots', {
#   test_dat <- gather_multi(demo_data_wide,
#                            key = wave,
#                            values = c('X', 'Y', 'Z'),
#                            varlist = vars(starts_with('X'),
#                                           starts_with('Y'),
#                                           starts_with('Z')),
#                            -id)
#   expect_is(test_dat, 'data.frame')
# })
#
# test_that('gather_multi takes vars with unquoted values', {
#   test_dat <- gather_multi(demo_data_wide,
#                            key = wave,
#                            values = vars(X, Y, Z),
#                            varlist = vars(starts_with('X'),
#                                           starts_with('Y'),
#                                           starts_with('Z')),
#                            -id)
#   expect_is(test_dat, 'data.frame')
# })
#
# test_that('gather_multi warns with na.rm = TRUE', {
#   expect_warning(gather_multi(demo_data_wide_miss,
#                               key = wave,
#                               values = c('X', 'Y', 'Z'),
#                               varlist = vars(starts_with('X'),
#                                              starts_with('Y'),
#                                              starts_with('Z')),
#                               -id,
#                               na.rm = TRUE))
# })
#
# test_that('gather_multi errors with imbalance', {
#   expect_error(gather_multi(demo_data_wide_miss,
#                             key = wave,
#                             values = c('X', 'Z'),
#                             varlist = vars(starts_with('X'),
#                                            starts_with('Y'),
#                                            starts_with('Z')),
#                             -id))
# })
#
# test_that('gather_multi errors with imbalance', {
#   expect_error(gather_multi(demo_data_wide_miss,
#                             key = wave,
#                             values = c('X', 'Y', 'Z'),
#                             varlist = vars(starts_with('X'),
#                                            starts_with('Y'),
#                                            one_of('Z.1', 'Z.2')),
#                             -id))
# })