tests/testthat/_problems/test_stringdist_join-11.R

In fuzzyjoin: Join Tables Together on Inexact Matching

# Extracted from test_stringdist_join.R:11

# setup ------------------------------------------------------------------------
library(testthat)
test_env <- simulate_test_env(package = "fuzzyjoin", path = "..")
attach(test_env, warn.conflicts = FALSE)

# prequel ----------------------------------------------------------------------
context("stringdist_join")
d <- tibble::tibble(
  cut2 = c("Idea", "Premiums", "Premiom", "VeryGood", "VeryGood", "Faiir")
  ) %>%
  dplyr::mutate(type = dplyr::row_number())

# test -------------------------------------------------------------------------
j <- stringdist_inner_join(diamonds, d, by = c(cut = "cut2"), distance_col = "distance")