Nothing
library(pystr)
context("pystr_splitlines")
test_that("it splits correctly when \r\n is first", {
expected = c("First", "Second", "Third")
expect_equal(pystr_splitlines("First\r\nSecond\rThird")[[1]], expected)
})
test_that("it splits correctly when \r\n is second", {
expected = c("First", "Second", "Third")
expect_equal(pystr_splitlines("First\nSecond\r\nThird")[[1]], expected)
})
test_that("it splits correctly when \r\n is last", {
expected = c("First", "Second", "Third")
expect_equal(pystr_splitlines("First\nSecond\nThird\r\n")[[1]], expected)
})
test_that("it keeps the ends correctly when \r\n is first", {
expected = c("First\r\n", "Second\r", "Third")
expect_equal(pystr_splitlines("First\r\nSecond\rThird", TRUE)[[1]], expected)
})
test_that("it keepds the ends correctly when \r\n is second", {
expected = c("First\n", "Second\r\n", "Third")
expect_equal(pystr_splitlines("First\nSecond\r\nThird", TRUE)[[1]], expected)
})
test_that("it keeps the ends correctly when \r\n is last", {
expected = c("First\n", "Second\n", "Third\r\n")
expect_equal(pystr_splitlines("First\nSecond\nThird\r\n", TRUE)[[1]], expected)
})
test_that("it returns the string itself if there are no linebreaks", {
expect_equal(pystr_splitlines("fdsa")[[1]], "fdsa")
})
test_that("it returns a list of character vectors", {
input = c("A\rB\rC", "B\rC", "C")
output = list(c("A", "B", "C"), c("B", "C"), "C")
expect_equal(pystr_splitlines(input), output)
})
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.