Running ‘testthat.R’ [3s/14s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(boxoffice)
  > 
  > test_check("boxoffice")
  ── 1. Error: columns have right names (@test-column-names.R#12)  ───────────────
  is.response(x) is not TRUE
  1: expect_named(boxoffice(dates = as.Date("2017-12-25"), site = "mojo"), col_names) at testthat/test-column-names.R:12
  2: quasi_label(enquo(object), label = label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: boxoffice(dates = as.Date("2017-12-25"), site = "mojo")
  5: httr::content(page, "parsed", encoding = "UTF-8")
  6: stopifnot(is.response(x))
  
  ── 2. Error: column types are correct (@test-column-types.R#11)  ───────────────
  is.response(x) is not TRUE
  1: expect_true(all(lapply(boxoffice(dates = as.Date("2017-12-25"), site = "mojo"), class) == 
         col_types)) at testthat/test-column-types.R:11
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: lapply(boxoffice(dates = as.Date("2017-12-25"), site = "mojo"), class)
  5: boxoffice(dates = as.Date("2017-12-25"), site = "mojo")
  6: httr::content(page, "parsed", encoding = "UTF-8")
  7: stopifnot(is.response(x))
  
  ── 3. Error: (unknown) (@test-column-values.R#3)  ──────────────────────────────
  is.response(x) is not TRUE
  1: boxoffice::boxoffice(dates = as.Date("2017-12-25"), site = "mojo") at testthat/test-column-values.R:3
  2: httr::content(page, "parsed", encoding = "UTF-8")
  3: stopifnot(is.response(x))
  
  ── 4. Error: returns proper number of rows and columns (@test-dimmensions.R#7)  
  is.response(x) is not TRUE
  1: expect_equal(ncol(boxoffice(dates = as.Date("2017-12-25"), site = "mojo")), 9) at testthat/test-dimmensions.R:7
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: ncol(boxoffice(dates = as.Date("2017-12-25"), site = "mojo"))
  5: boxoffice(dates = as.Date("2017-12-25"), site = "mojo")
  6: httr::content(page, "parsed", encoding = "UTF-8")
  7: stopifnot(is.response(x))
  
  ── 5. Error: returns warning (@test-errors-silent.R#16)  ───────────────────────
  is.response(x) is not TRUE
  1: expect_message(boxoffice(dates = as.Date("2017-12-25"), site = "mojo")) at testthat/test-errors-silent.R:16
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: boxoffice(dates = as.Date("2017-12-25"), site = "mojo")
  7: httr::content(page, "parsed", encoding = "UTF-8")
  8: stopifnot(is.response(x))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 40 SKIPPED: 0 FAILED: 5
  1. Error: columns have right names (@test-column-names.R#12) 
  2. Error: column types are correct (@test-column-types.R#11) 
  3. Error: (unknown) (@test-column-values.R#3) 
  4. Error: returns proper number of rows and columns (@test-dimmensions.R#7) 
  5. Error: returns warning (@test-errors-silent.R#16) 
  
  Error: testthat unit tests failed
  Execution halted