Running ‘testthat.R’ [8s/9s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(naniar)
  > 
  > test_check("naniar")
  ── 1. Error: add_label_shadow returns a tibble (@test-add-label-shadow.R#7)  ───
  Evaluation error: object '~Ozone_NA' not found.
  1: expect_is(add_label_shadow(aq_shadow, Ozone), "tbl_df") at testthat/test-add-label-shadow.R:7
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: add_label_shadow(aq_shadow, Ozone)
  5: data %>% dplyr::mutate(any_missing = label_shadow(., !!!quo_vars, missing = missing, 
         complete = complete))
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: withVisible(function_list[[k]](value))
  12: function_list[[k]](value)
  13: dplyr::mutate(., any_missing = label_shadow(., !!!quo_vars, missing = missing, complete = complete))
  14: mutate.tbl_df(., any_missing = label_shadow(., !!!quo_vars, missing = missing, complete = complete))
  15: mutate_impl(.data, dots)
  
  ── 2. Error: add_label_shadow adds the right number of columns (@test-add-label-
  Evaluation error: object '~Ozone_NA' not found.
  1: expect_equal(ncol(aq_shadow) + 1, ncol(add_label_shadow(aq_shadow, Ozone))) at testthat/test-add-label-shadow.R:13
  2: quasi_label(enquo(expected), expected.label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: ncol(add_label_shadow(aq_shadow, Ozone))
  5: add_label_shadow(aq_shadow, Ozone)
  6: data %>% dplyr::mutate(any_missing = label_shadow(., !!!quo_vars, missing = missing, 
         complete = complete))
  7: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: `_fseq`(`_lhs`)
  11: freduce(value, `_function_list`)
  12: withVisible(function_list[[k]](value))
  13: function_list[[k]](value)
  14: dplyr::mutate(., any_missing = label_shadow(., !!!quo_vars, missing = missing, complete = complete))
  15: mutate.tbl_df(., any_missing = label_shadow(., !!!quo_vars, missing = missing, complete = complete))
  16: mutate_impl(.data, dots)
  
  ── 3. Error: add_label_shadow adds a column with suffix 'any_missing' (@test-add
  Evaluation error: object '~Ozone_NA' not found.
  1: expect_equal(names(add_label_shadow(aq_shadow, Ozone)), c(names(aq_shadow), "any_missing")) at testthat/test-add-label-shadow.R:20
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: add_label_shadow(aq_shadow, Ozone)
  5: data %>% dplyr::mutate(any_missing = label_shadow(., !!!quo_vars, missing = missing, 
         complete = complete))
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: withVisible(function_list[[k]](value))
  12: function_list[[k]](value)
  13: dplyr::mutate(., any_missing = label_shadow(., !!!quo_vars, missing = missing, complete = complete))
  14: mutate.tbl_df(., any_missing = label_shadow(., !!!quo_vars, missing = missing, complete = complete))
  15: mutate_impl(.data, dots)
  
  ── 4. Error: (unknown) (@test-add-label-shadow.R#45)  ──────────────────────────
  Evaluation error: object '~air_NA' not found.
  1: add_label_shadow(dat_sh, air) at testthat/test-add-label-shadow.R:45
  2: data %>% dplyr::mutate(any_missing = label_shadow(., !!!quo_vars, missing = missing, 
         complete = complete))
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: dplyr::mutate(., any_missing = label_shadow(., !!!quo_vars, missing = missing, complete = complete))
  11: mutate.tbl_df(., any_missing = label_shadow(., !!!quo_vars, missing = missing, complete = complete))
  12: mutate_impl(.data, dots)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 456 SKIPPED: 23 FAILED: 4
  1. Error: add_label_shadow returns a tibble (@test-add-label-shadow.R#7) 
  2. Error: add_label_shadow adds the right number of columns (@test-add-label-shadow.R#13) 
  3. Error: add_label_shadow adds a column with suffix 'any_missing' (@test-add-label-shadow.R#20) 
  4. Error: (unknown) (@test-add-label-shadow.R#45) 
  
  Error: testthat unit tests failed
  Execution halted