inst/cant_get_these_to_work_in_testthat/testthat.R

library(testthat)
library(docaids)

#----------

# expect_equal_files <- function (file1, file2)
#     {
# #browser()
#     file1_lines <- readLines (file1)
#     file2_lines <- readLines (file2)
#
#     return (expect_equal (file1_lines, file2_lines))
#     }

#----------

test_check("docaids")
langfob/docaids documentation built on May 20, 2019, 7:56 p.m.