revdep/checks.noindex/corrgrapher/new/corrgrapher.Rcheck/tests/testthat/test_utils.R

In gbm-developers/gbm: Generalized Boosted Regression Models

context('utils working properly')

# wrap_with_html_tag --------------------------------------- 

test_that('wrap_with_html_tag working properly with numerical data', {
  expect_is(wrap_with_html_tag(cgr_exp), 'shiny.tag')
  expect_is(wrap_with_html_tag(cgr_df), 'shiny.tag')
})

test_that('wrap_with_html_tag working properly with mixed data', {
  expect_is(wrap_with_html_tag(tit_cgr_exp), 'shiny.tag')
  expect_is(wrap_with_html_tag(cgr_df_mixed), 'shiny.tag')
})

# insert_image ---------------------------------------

library(ggplot2)
pl <- ggplot(dragons, aes(x = height,
                          y = weight)) +
  geom_point()

absolutePath <- getwd()
container_id <- 'cgr_id_123'
if(file.exists(file.path(absolutePath, 'plt.png'))) file.remove(file.path(absolutePath, 'plt.png'))
test_that('insert_image not throwing errors',{
  expect_is(insert_image(pl, container_id, tf = file.path(absolutePath, 'plt.png')), 'shiny.tag')
})

test_that('cleans after itself',{
  expect_true({
    insert_image(pl, container_id, tf = file.path(absolutePath, 'remove_me.png'))
    !file.exists(file.path(absolutePath, 'remove_me.png'))
  })
})

test_that('handles existing file error',{
  expect_error({
    file.create(file.path(absolutePath, 'dont_append_me.png'))
    insert_image(pl, container_id, file.path(absolutePath('dont_append_me.png')))
  })
})
file.remove(file.path(absolutePath, 'dont_append_me.png'))

# plot_distribution ---------------------------------

test_that('plot_distibution working properly',{
  expect_is(plot_distribution(dragons$height, 'height'), 'gg')
  expect_is(plot_distribution(dragons$colour, 'colour'), 'gg')
})