tests/testthat/testing.R

In oganm/ogbox: Stuff and things

context('general error check')
test_that("trimNAs can't trim NAs", {
    a = c(1,2,NA)
    expect_that(ogbox::trimNAs(a),testthat::equals(c(1,2)))
})

test_that('replaceElement',{
    vector = c('control','Control',"Parkinson's disease","Parkinsons disease")
    dictionary = c('Control' ='control',
                   "Parkinson's disease" = 'PD',
                   'Parkinsons disease' = "PD")
    
    expect_equal(replaceElement(vector,dictionary)$newVector,c('control','control','PD','PD'))
    
    names(dictionary) = NULL
    expect_equal(replaceElement(vector,dictionary = dictionary,
                                labels = c('Control',"Parkinson's disease",'Parkinsons disease'))$newVector,
                 c('control','control','PD','PD'))
    
})


test_that("toColor defaults", {
    a = c('a','b','c','a')
    col = toColor(a)
    check  = list(cols = c( "#FF0000FF", "#00FF00FF", "#0000FFFF","#FF0000FF"),
                  palette = c(a="#FF0000FF",b= "#00FF00FF", c="#0000FFFF"))
    expect_that(col$palette,
                testthat::equals(check$palette))
})

test_that('toColor custom', {
    a = c('a','b','c','a')
    palette = c('a','b','c')
    col = toColor(a, palette)
    check  = list(cols = c( "a", "b", "c","a"),
                  palette = c(a="a",b= "b", c="c"))
    expect_that(col$palette,
                testthat::equals(check$palette))
})

test_that('list seperator', {
    list[a,b] = list(a=c(1,2,3),b=c(2,3,4)) 
    expect_that(a,
                testthat::equals(c(1,2,3)))
    expect_that(b,
                testthat::equals(c(2,3,4)))
})



test_that('intersectMult',{
    expect_that(intersectMult(list = list(a=c(1,3,4),b=c(3,4,5), c = c(3,4,1))),
                testthat::equals(c(3,4)))
    expect_that(intersectMult(c(1,3,4), c(3,4,5), c = c(3,4,1)),
                testthat::equals(c(3,4)))
})

test_that('rn2col-col2rn',{
    df = data.frame(a=c('a','b','c'),b=c(1,2,3))
    expect_that(rownames(df2<-col2rn(df)) , testthat::equals(c('a','b','c')))
    expect_that(rn2col(df2) ,
                testthat::equals(data.frame(rownames=c('a','b','c'),b=c(1,2,3),
                                            stringsAsFactors=F,
                                            row.names= c('a','b','c'))))
})

test_that('sepExpr fails to separate data frames',{
    df = data.frame(a = c('asd','gfa','sad'), b = c('qwe', 'ewq', 'rew') , c = c(1.1,2.2,3.3), d = c(2.2,3.3,4.4))
    seperated = sepExpr(df)
    expect_that(seperated[[1]],
                testthat::equals(data.frame(a = c('asd','gfa','sad'), b = c('qwe', 'ewq', 'rew'))))
    expect_that(seperated[[2]],
                testthat::equals(data.frame(c = c(1.1,2.2,3.3), d = c(2.2,3.3,4.4))))
})

test_that('purge fails do delete',{
    a = 23
    purge()
    expect_error(a,'not found')
})


test_that('gsubMult',{
    str = 'asdfg'
    expect_that(gsubMult(c('a','s'),c('m','n'),str),
                testthat::equals('mndfg'))
})

# test_that('trimHeadComment',{
#     text = textConnection(
#         '# goygoygoy
# #loyloyloy
# hedehodo
# loyloy#llo'
#     )
#     trimmed = trimHeadComment(text,commentChar = '#')
#     expect_equal(readLines(trimmed),c("hedehodo" ,  "loyloy#llo"))
#     close(text)
#     close(trimmed)
# })

test_that('mergeList', {
    expect_equal(mergeList(list(a = c(1,2), b = c(3,4)), list(b = c(4,5)), forceUnique = T),
                 list(a=c(1,2),
                      b= c(3,4,5)))
    expect_equal(mergeList(list(a = c(1,2), b = c(3,4)), list(b = c(4,5)), forceUnique = F),
                 list(a=c(1,2),
                      b= c(3,4,4,5)))
})

test_that('scale',{
    expect_equal(scale01(c(1,2,3,4,5)),
                 seq(0,1,0.25))
    expect_equal(scale01(c(0,0,0)),
                 c(0.5,0.5,0.5))
})

test_that('signifMarker', {
    expect_equal(signifMarker(c(0.1,0.01,0.05,0.005,0.0005)),
                 c( "", "*", "", "**", "***"))
})


test_that('loadURL', {
    loadURL('https://github.com/oganm/ogbox/blob/master/tests/testthat/testData.Rda?raw=true')
    expect_equal(hede, c(1,2,3))
})


test_that('qNormToValues', {
    expect_equal(qNormToValues(c(0,0,0,0,0,1,100,100,100),1:3,uniquelyOrdered = TRUE),
                 c(1, 1, 1, 1, 1, 2, 3, 3, 3))
    expect_equal(qNormToValues(c(0,0,0,0,0,1,100,100,100),1:3,uniquelyOrdered = FALSE),
                 c(2, 2, 2, 2, 2, 2, 3, 3, 3))
})


# test_that('insist', {
#     insist(gapminder,repos = 'http://cran.us.r-project.org')
#     expect_equal(as.character(gapminder[1,1]), 'Afghanistan')
# })