inst/unitTests/test_datatypes.r

In EnhancedVolcano: Publication-ready volcano plots with enhanced colouring and labeling

test_that('datatypes', {
  expect_type(EnhancedVolcano(toptable),
    c('S4', 'list'))
  expect_type(EnhancedVolcano(lab, x, y, selectLab, shapeCustom, col,
    colCustom, colGradient, colGradientLabels, legendLabels, encircle,
    encircleFill, encircleCol, shade), c('character'))
  expect_type(EnhancedVolcano(xlab, ylab, title, subtitle, caption,
    cutoffLineType, cutoffLineCol, legendPosition, shadeFill,
    typeConnectors, endsConnectors, colConnectors, hlineType,
    hlineCol, vlineType, vlineCol, border, borderColour),
    c('language', 'character'))
  expect_type(EnhancedVolcano(boxedLabels, drawConnectors, arrowheads,
    gridlines.major, gridlines.minor),
     c('logical'))
  expect_type(EnhancedVolcano(subtitleLabSize, captionLabSize, pCutoff,
    cutoffLineWidth, FCcutoff, pointSize,
    labSize, labhjust, labvjust, shape,
    colAlpha, colGradientBreaks, colGradientLimits, legendLabSize,
    legendIconSize, encircleSize, encircleAlpha, shadeAlpha, shadeSize,
    shadeBins, widthConnectors, lengthConnectors, hline, hlineWidth, vline,
    vlineWidth, borderWidth), c('integer', 'double'))
  expect_gt(EnhancedVolcano(subtitleLabSize, captionLabSize, pCutoff,
    cutoffLineWidth, FCcutoff, labhjust, labvjust,
    shape, colAlpha, legendLabSize, legendIconSize, encircleSize, encircleAlpha,
    shadeAlpha, shadeSize, shadeBins, widthConnectors, lengthConnectors,
    hlineWidth, vlineWidth, borderWidth),
    0.0)
})