Running ‘testthat.R’ [2s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(amp.dm)
  > 
  > test_check("amp.dm")
  Read 3 items
  Saving _problems/test_dataio-60.R
  Saving _problems/test_dataio-73.R
  Saving _problems/test_dosefunc-119.R
  Saving _problems/test_tabulate-15.R
  Saving _problems/test_tabulate-36.R
  Saving _problems/test_tabulate-136.R
  [ FAIL 6 | WARN 105 | SKIP 0 | PASS 272 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_dataio.R:60:3'): make_readonly correctly sets reaonly attribute ──
  <EACCES/fs_error/error/condition>
  Error: [EACCES] Failed to stat '/Volumes/Temp/tmp/RtmpQ7SDnz/file1827918aada31.txt': permission denied
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test_dataio.R:60:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─base::substr(fs::file_info(tmpfn2)$permissions, 1, 3)
   5. └─fs::file_info(tmpfn2)
  ── Error ('test_dataio.R:73:3'): output_data correctly outputs data ────────────
  Error in `file(file, "rt")`: cannot open the connection
  Backtrace:
      ▆
   1. └─utils::read.csv(paste0(tmpf, ".csv"), stringsAsFactors = FALSE) at test_dataio.R:73:3
   2.   └─utils::read.table(...)
   3.     └─base::file(file, "rt")
  ── Failure ('test_dosefunc.R:119:3'): impute_dose correctly creates additional dose records ──
  Expected `as.character(check$dt[check$ID == 1 & check$type == "additional"])[1]` to equal "2016-02-15 04:44:00".
  Differences:
  1/1 mismatches
  x[1]: "2016-02-14 04:44:00"
  y[1]: "2016-02-15 04:44:00"
  ── Error ('test_tabulate.R:15:3'): general_tbl correctly creates generic latex table, file or passes data frame ──
  Error in `file(file, ifelse(append, "a", "w"))`: cannot open the connection
  Backtrace:
      ▆
   1. └─amp.dm::general_tbl(Theoph, outnm = tmpf1, ret = "file", show = FALSE) at test_tabulate.R:15:3
   2.   └─R3port::ltx_list(data, out = outnm, mancol = align, ...)
   3.     └─base::cat(tbl, sep = "\n", file = rawout)
   4.       └─base::file(file, ifelse(append, "a", "w"))
  ── Error ('test_tabulate.R:36:3'): define_tbl correctly tabulates attributes ───
  Error in `file(file, ifelse(append, "a", "w"))`: cannot open the connection
  Backtrace:
      ▆
   1. └─amp.dm::define_tbl(attrl, outnm = tmpf1, ret = "file", show = FALSE) at test_tabulate.R:36:3
   2.   └─amp.dm::general_tbl(...)
   3.     └─R3port::ltx_list(data, out = outnm, mancol = align, ...)
   4.       └─base::cat(tbl, sep = "\n", file = rawout)
   5.         └─base::file(file, ifelse(append, "a", "w"))
  ── Error ('test_tabulate.R:136:3'): check_nmdata correctly checks a NONMEM dataset ──
  Error in `file(file, ifelse(append, "a", "w"))`: cannot open the connection
  Backtrace:
      ▆
   1. └─utils::write.table(...)
   2.   └─base::file(file, ifelse(append, "a", "w"))
  
  [ FAIL 6 | WARN 105 | SKIP 0 | PASS 272 ]
  Error:
  ! Test failures.
  Execution halted
  rm: /Volumes/Temp/tmp/RtmpQ7SDnz: Permission denied