tests/testthat/test-makeup_weekday.R
In datasketch/makeup: Format vectors
test_that("makeup weekday works", {
x <- seq.Date(as.Date("2024-11-27"), as.Date("2024-12-04"), by = "day")
# 2024-11-27 wednesday
expect_equal(
makeup_weekday(x),
lubridate::wday(3:10 %% 7 + 1, label = TRUE, abbr = FALSE)
)
expect_equal(as.character(makeup_weekday(x, "es")[1]), "miércoles")
expect_equal(as.character(makeup_weekday(x, "de")[1]), "Mittwoch")
expect_equal(as.character(makeup_weekday(x, "es-CO")[1]), "miércoles")
})
datasketch/makeup documentation built on Feb. 21, 2025, 6:53 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.
test_that("makeup weekday works", {
x <- seq.Date(as.Date("2024-11-27"), as.Date("2024-12-04"), by = "day")
# 2024-11-27 wednesday
expect_equal(
makeup_weekday(x),
lubridate::wday(3:10 %% 7 + 1, label = TRUE, abbr = FALSE)
)
expect_equal(as.character(makeup_weekday(x, "es")[1]), "miércoles")
expect_equal(as.character(makeup_weekday(x, "de")[1]), "Mittwoch")
expect_equal(as.character(makeup_weekday(x, "es-CO")[1]), "miércoles")
})
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.