library(testthat)
if (Sys.info()[["sysname"]] == "Darwin") {
test_that("Warning if multibyte support is not detected", {
withr::with_locale(new = c("LC_CTYPE" = "en_US.US-ASCII"), code = {
expect_message(library(datefixR), paste0(
"The current locale does not support multibyte characters. ",
"You may run into difficulties if any months are given as ",
"non-English language names. \n"
))
})
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.