inst/tinytest/test_str2num.R

if (interactive()) {
  pkgload::load_all()
  library("tinytest")
}


result <- str2num("1.000.000,11")
expectation <- 1e06 + 0.11
expect_equal(result, expectation)
result <- str2num("not_a_number")
expect_true(is.na(result))

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.