#' Copyright(c) 2017-2020 R. Mark Sharp
# This file is part of nprcgenekeepr
context("makeRoundUp")
library(testthat)
test_that("makeRoundup correctly rounded values based on integer and modulus", {
int1 <- makeRoundUp(int = 1, modulus = 2)
expect_equal(int1, 2)
int1 <- makeRoundUp(int = 1, modulus = 3)
expect_equal(int1, 3)
int1 <- makeRoundUp(int = 3, modulus = 2)
expect_equal(int1, 4)
int1 <- makeRoundUp(int = 16, modulus = 5)
expect_equal(int1, 20)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.