Nothing
tests/testthat/test-getEnter.R
In DDIwR: DDI with R
current_os <- Sys.info()[["sysname"]]
test_that("getEnter() works", {
expect_equal(getEnter("Win"), ifelse(current_os == "Windows", "\n", "\r\n"))
expect_equal(getEnter("Mac"), ifelse(current_os == "Darwin", "\n", "\r"))
expect_equal(getEnter("Linux"), "\n")
expect_error(getEnter("Unknown"))
})
Try the DDIwR package in your browser
Any scripts or data that you put into this service are public.
DDIwR documentation built on Oct. 1, 2023, 5:06 p.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.
current_os <- Sys.info()[["sysname"]]
test_that("getEnter() works", {
expect_equal(getEnter("Win"), ifelse(current_os == "Windows", "\n", "\r\n"))
expect_equal(getEnter("Mac"), ifelse(current_os == "Darwin", "\n", "\r"))
expect_equal(getEnter("Linux"), "\n")
expect_error(getEnter("Unknown"))
})
Try the DDIwR package in your browser
Any scripts or data that you put into this service are public.
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.