Running ‘testthat.R’ [11s/17s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(unpivotr)
  
  Attaching package: 'unpivotr'
  
  The following object is masked from 'package:stats':
  
      offset
  
  > 
  > test_check("unpivotr")
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  1. Error: Compass directions ABOVE and LEFT work with boundaries (@test-join_header.R#292) 
  Evaluation error: object 'content' not found.
  1: cells %>% filter(row >= 4, col >= 4, !is.na(content)) %>% mutate(content = ifelse(is.na(character), 
         content, NA)) %>% mutate(value = as.integer(content)) %>% select(row, col, value) %>% 
         ABOVE(col_headers[[1]], left_border_cells) %>% N(col_headers[[2]]) %>% LEFT(row_headers[[1]], 
         top_border_cells) %>% W(row_headers[[2]]) %>% arrange(row, col) at testthat/test-join_header.R:292
  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: filter(., row >= 4, col >= 4, !is.na(content))
  9: filter.tbl_df(., row >= 4, col >= 4, !is.na(content))
  10: filter_impl(.data, quo)
  
  2. Error: Compass directions BELOW and RIGHT work with boundaries (@test-join_header.R#329) 
  Evaluation error: object 'content' not found.
  1: cells %>% filter(col >= 10, !is.na(content)) %>% select(row, col, header = character) %>% 
         split(.$col) at testthat/test-join_header.R:329
  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: filter(., col >= 10, !is.na(content))
  9: filter.tbl_df(., col >= 10, !is.na(content))
  10: filter_impl(.data, quo)
  
  Loading required package: xml2
  testthat results ================================================================
  OK: 137 SKIPPED: 0 FAILED: 2
  1. Error: Compass directions ABOVE and LEFT work with boundaries (@test-join_header.R#292) 
  2. Error: Compass directions BELOW and RIGHT work with boundaries (@test-join_header.R#329) 
  
  Error: testthat unit tests failed
  Execution halted