Nothing
inst/tinytest/test_delete_trailing_whitespace.R
In fritools2: Utilities for the Forest Research Institute of the State Baden-Wuerttemberg
if (interactive()) {
pkgload::load_all()
library("tinytest")
}
template <- system.file("files", "blanks.txt", package = "fritools2")
input <- tempfile()
file.copy(template, input)
delete_trailing_whitespace(file_names = input)
result <- readLines(input)
template <- readLines(template)
expect_identical(
nchar(result),
as.integer(nchar(template) - c(2, 0, 0, 0))
)
Try the fritools2 package in your browser
Any scripts or data that you put into this service are public.
fritools2 documentation built on July 9, 2023, 7:07 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.
if (interactive()) {
pkgload::load_all()
library("tinytest")
}
template <- system.file("files", "blanks.txt", package = "fritools2")
input <- tempfile()
file.copy(template, input)
delete_trailing_whitespace(file_names = input)
result <- readLines(input)
template <- readLines(template)
expect_identical(
nchar(result),
as.integer(nchar(template) - c(2, 0, 0, 0))
)
Try the fritools2 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.