Running ‘testthat.R’ [1s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(questionr)
  
  Attaching package: 'questionr'
  
  The following object is masked from 'package:testthat':
  
      describe
  
  > 
  > test_check("questionr")
  ── 1. Error: prop, cprop and lprop tabyl versions are correct (@test_tables.R#88
  replacement has 9 rows, data has 8
  1: hdv2003 %>% tabyl(qualif, sexe) %>% lprop %>% as.data.frame %>% gather(Var2, Freq, 
         -1) at testthat/test_tables.R:88
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: lprop(.)
  9: rprop.tabyl(.)
  10: janitor::adorn_totals(tab, c("row", "col"))
  11: `[<-`(`*tmp*`, (nrow(dat) + 1), , value = structure(list(qualif = "Total", Homme = 899, 
         Femme = 1101), row.names = c(NA, -1L), class = c("tbl_df", "tbl", "data.frame"
     )))
  12: `[<-.data.frame`(`*tmp*`, (nrow(dat) + 1), , value = structure(list(qualif = "Total", 
         Homme = 899, Femme = 1101), row.names = c(NA, -1L), class = c("tbl_df", "tbl", 
     "data.frame")))
  13: xpdrows.data.frame(x, rows, new.rows)
  14: `[[<-`(`*tmp*`, i, value = c("Ouvrier specialise", "Ouvrier qualifie", "Technicien", 
     "Profession intermediaire", "Cadre", "Employe", "Autre", NA, NA))
  15: `[[<-.data.frame`(`*tmp*`, i, value = c("Ouvrier specialise", "Ouvrier qualifie", 
     "Technicien", "Profession intermediaire", "Cadre", "Employe", "Autre", NA, NA))
  16: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 43 SKIPPED: 0 FAILED: 1
  1. Error: prop, cprop and lprop tabyl versions are correct (@test_tables.R#88) 
  
  Error: testthat unit tests failed
  Execution halted