tests/testthat/test-device.R

In details: Create Details HTML Tag for Markdown and Package Documentation

testthat::context('device')

testthat::describe('using device',{
  
  tf <- file.path(tempdir(),'test.png')
  file.create(tf)
  testenv <- new.env()
    
  ret <- device_check(
    plot(x=mtcars$mpg,y=mtcars$wt),
    f_png = tf,
    env = testenv
    )

  it('device flag',{
    testthat::expect_true(testenv$device)
  })
  
  it('device png',{
    testthat::expect_true(file.size(testenv$f_png)>0)
  })
  
  it('device upload',{
    testthat::skip_on_cran()
    testthat::skip_if_offline(host = 'imgur.com')
    testthat::expect_true(grepl('imgur',imgur_upload(testenv$f_png)))
  })
  
  unlink(tf)

})

# reset internal png path
pkg_env <- get('details_env',envir = asNamespace('details'))

pkg_env$f_png <- NULL

testthat::describe('local device',{
  
  details(plot(x=mtcars$mpg,y=mtcars$wt),imgur = FALSE)  

  it('image created',{
    testthat::expect_true(file.size(pkg_env$f_png)>0)
  })
  
  it('env flag reset',{
    testthat::expect_true(pkg_env$imgur)
  })
  
})