Test: util_get_numbers

Ivan Jacob Agaloos Pesigan

2021-01-15

Source: vignettes/tests/test_util_get_numbers.Rmd 
library(testthat)
library(jeksterslabRutils)
context("Test util_get_numbers.")

Parameters

input <- util_rand_str(
  characters = 50L,
  digits = TRUE,
  ext = "inp"
)
knitr::kable(
  x = data.frame(
    Variable = "`input`",
    Description = "Input string.",
    Value = input
  ),
  row.names = FALSE
)
Variable Description Value
input Input string. C5jrwevaDRyqwhIUnXXe94ThloQaXWWkzZypvkzq7pxqbVt4FB.inp

Run test

results <- util_get_numbers(
  x = input
)

Results

Note that only numbers should be retained.

knitr::kable(
  x = data.frame(
    Description = "Results.",
    Parameter = input,
    Result = as.vector(results)
  ),
  row.names = FALSE
)
Description Parameter Result
Results. C5jrwevaDRyqwhIUnXXe94ThloQaXWWkzZypvkzq7pxqbVt4FB.inp 5
Results. C5jrwevaDRyqwhIUnXXe94ThloQaXWWkzZypvkzq7pxqbVt4FB.inp 94
Results. C5jrwevaDRyqwhIUnXXe94ThloQaXWWkzZypvkzq7pxqbVt4FB.inp 7
Results. C5jrwevaDRyqwhIUnXXe94ThloQaXWWkzZypvkzq7pxqbVt4FB.inp 4 
test_that("util_cat_sys works", {
  expect_equivalent(
    is.numeric(results),
    TRUE
  )
})
#> Test passed 🌈