tests/testthat/test-best_match.R

context("best_match")

test_that("misc", {
  
  best_match("petal", names(iris)) %>%
    expect_equivalent("Petal.Length")
  
  best_match("petal", names(iris), all = TRUE) %>%
    expect_equivalent(c("Petal.Length", "Petal.Width"))
})

Try the rccmisc package in your browser

Any scripts or data that you put into this service are public.

rccmisc documentation built on May 2, 2019, 2:48 p.m.