tests/testthat/teardown.R

pdf_path =  test_path('Rplots.pdf')

# check for write permission
if(isTRUE(file.access(pdf_path, mode = 2)==0))
  file.remove(pdf_path)
jefferis/nat documentation built on Feb. 22, 2024, 12:45 p.m.