Nothing
context("degree-minute-second fxns")
test_that("pz_degree works", {
skip_on_cran()
aa <- pz_degree(45.23323)
expect_is(aa, "integer")
expect_type(aa, "integer")
expect_equal(aa, 45)
})
test_that("pz_minute works", {
skip_on_cran()
aa <- pz_minute(45.23323)
expect_is(aa, "integer")
expect_type(aa, "integer")
expect_equal(aa, 13)
})
test_that("pz_second works", {
skip_on_cran()
aa <- pz_second(45.23323)
expect_is(aa, "numeric")
expect_type(aa, "double")
expect_equal(round(aa), 60)
})
# FIXME: look into commented out values
test_lats <- c(
"40.4183318",
"40.4183318° N",
"40° 25´ 5.994\" N",
"40° 25.0999’",
"N40°25’5.994",
"40°25’5.994\"N",
"40 25 5.994",
"40.4183318",
"40.4183318°",
# "145505994.48",
"40.4183318N",
# "4025.0999N",
"40°25’5.994\"N",
# "402505.994N",
"N 40 25.0999",
"40:25:6N",
"40:25:5.994N",
"40°25’6\"N",
"40°25’6\"",
"40d 25’ 6\" N",
"40.4183318N",
"40° 25.0999",
"40-25-5.994N",
"40_25_5.994N"
)
test_that("degree works with varied formats", {
skip_on_cran()
# out <- data.frame(input = test_lats, res = NA_real_,
# stringsAsFactors = FALSE)
for (i in seq_along(test_lats)) {
expect_equal(pz_degree(lat = test_lats[i]), 40)
expect_equal(pz_minute(lat = test_lats[i]), 25)
expect_equal(round(pz_second(lat = test_lats[i])), 6)
# out[i, "res"] <- degree(test_lats[i])
}
})
test_that("pz_degree - fails well", {
skip_on_cran()
expect_error(pz_degree(), "is not TRUE")
expect_error(pz_degree(4, 5), "is not TRUE")
expect_error(pz_degree(mtcars), "lon must be of class")
})
# invalid formats
invalid_formats <- c(
"blablabla",
"5 Fantasy street 12",
"-40.1X, 74",
"-40.1 X, 74",
"-40.1, 74X",
"-40.1, 74 X",
"1 2 3 4 5 6 7 8",
"1 2 3 4 5 6 7",
"1 2 3 4 5",
"1 2 3 4",
"40.1° SS",
"60.1° NN",
"60.1° W",
"60.1° E",
"W60.1",
"E60.1"
# "-40.4183318, 12.345, 74.6411133"
)
test_that("dms fxns fail as expected", {
skip_on_cran()
out <- data.frame(
input = invalid_formats, res = NA_real_,
stringsAsFactors = FALSE
)
for (i in seq_along(invalid_formats)) {
expect_warning(pz_degree(lat = invalid_formats[i]))
expect_warning(pz_minute(lat = invalid_formats[i]))
expect_warning(pz_second(lat = invalid_formats[i]))
}
expect_error(pz_d("a"), "x must be of class")
expect_error(pz_m("a"), "x must be of class")
expect_error(pz_s("a"), "x must be of class")
expect_error(pz_d(1) / pz_m(3), "division doesn't make sense here")
expect_error(pz_d(1) * pz_m(3), "multiplication doesn't make sense here")
})
test_that("dms adder fxns", {
skip_on_cran()
# basic usage, one at a time
deg1 <- pz_d(31)
min1 <- pz_m(44)
sec1 <- pz_s(17)
expect_is(deg1, "pz")
expect_is(min1, "pz")
expect_is(sec1, "pz")
expect_equal(deg1[1], 31)
expect_equal(min1[1], 44)
expect_equal(sec1[1], 17)
# addition
add1 <- pz_d(31) + pz_m(44)
add2 <- pz_d(31) + pz_m(44) + pz_s(59)
expect_is(add1, "pz")
expect_is(add2, "pz")
expect_equal(round(add1[1], 2), 31.73)
expect_equal(round(add2[1], 2), 31.75)
# subtraction
sub1 <- pz_d(5) - pz_m(49)
sub2 <- pz_d(-34) - pz_m(56) - pz_s(3)
expect_is(sub1, "pz")
expect_is(sub2, "pz")
expect_equal(round(sub1[1], 2), 4.18)
expect_equal(round(sub2[1], 2), -34.93)
})
test_that("dms fxns: utilities", {
skip_on_cran()
# unclass_strip_atts
z <- structure("a", foo = "bar")
zz <- unclass_strip_atts(z)
expect_is(attributes(z), "list")
expect_null(attributes(zz))
# print.pz
expect_output(print(pz_d(31)), "31")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.