tests/testthat/test-unpaid.R
In poissonconsulting/poistimesheets: Poisson Time Sheets
context("unpaid")
test_that("unpaid", {
expect_equal(pts_rate_unpaid_leave(35000L, 20L), 145.8333333)
expect_equal(pts_rate_unpaid_leave(35000, 20), 145.8333333)
expect_equal(pts_rate_unpaid_leave(c(35000, 70000), c(20, 10)), c(145.8333333, 280.0000))
})
poissonconsulting/poistimesheets documentation built on Jan. 24, 2020, 4:54 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("unpaid")
test_that("unpaid", {
expect_equal(pts_rate_unpaid_leave(35000L, 20L), 145.8333333)
expect_equal(pts_rate_unpaid_leave(35000, 20), 145.8333333)
expect_equal(pts_rate_unpaid_leave(c(35000, 70000), c(20, 10)), c(145.8333333, 280.0000))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.