Nothing
# Flexible number parsing -------------------------------------------------
test_that("col_number only takes first number", {
test_parse_number("XYZ 123,000 BLAH 456", 123000)
})
test_that("col_number helps with currency", {
test_parse_number("$1,000,000.00", 1e6)
es_MX <- locale("es", decimal_mark = ",")
test_parse_number("$1.000.000,00", locale = es_MX, 1e6)
})
test_that("invalid numbers don't parse", {
test_parse_number(c("..", "--", "3.3.3", "4-1"), c(NA, NA, 3.3, 4.0))
})
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.