Running 'spelling.R' [0s]
  Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(strex)
  Loading required package: stringr
  > 
  > test_check("strex")
  -- 1. Failure: str_list_nth_elems works (@test-RcppExports.R#19)  --------------
  `str_list_nth_elems(...)` threw an error with unexpected message.
  Expected match: "If both `char_list` and `n` have lengths greater than 1, then.+their lengths must be equal."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 2. Failure: num_list_nth_elems works (@test-RcppExports.R#38)  --------------
  `num_list_nth_elems(list(1:3, 7:8), 2:5)` threw an error with unexpected message.
  Expected match: "If both `num_list` and `n` have lengths greater than 1, then.+their lengths must be equal."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 3. Failure: str_after_nth works (@test-after.R#22)  -------------------------
  `str_after_nth(c("a"), c("a", "b"), 1:3)` threw an error with unexpected message.
  Expected match: "If `pattern` and `n` both have length greater than 1, their\nlengths must be equal.\n    * Your `pattern` has length 2.\n    * Your `n` has length 3."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 4. Failure: str_alphord_nums works (@test-alphord.R#19)  --------------------
  `str_alphord_nums(c("abc9def55", "abc9def5", "abc10xyz7"))` threw an error with unexpected message.
  Expected match: "The non-number bits of every string must be the same.\n    * The first pair of strings with different non-number bits\n      are strings 1 and 3.\n    * They are \"abc9def55\" and \"abc10xyz7\""
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 5. Failure: str_alphord_nums works (@test-alphord.R#29)  --------------------
  `str_alphord_nums(c("abc9def55", "9abc10def7"))` threw an error with unexpected message.
  Expected match: "The strings must all have the same number of numbers."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 6. Failure: str_alphord_nums works (@test-alphord.R#33)  --------------------
  `str_alphord_nums(c("0abc9def55g", "abc10def7g0"))` threw an error with unexpected message.
  Expected match: "It should either be the case that all strings start\\s?with.+numbers or that none of them do.+String number 1\\s?\"0abc9def55g\" does\\s?start with a number.+whereas string number 2\\s?\"abc10def7g0\" does\\s?not, start.+with a number."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 7. Failure: str_alphord_nums works (@test-alphord.R#44)  --------------------
  `str_alphord_nums("abc")` threw an error with unexpected message.
  Expected match: "Some of the input strings have no numbers in them."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 8. Failure: match_arg() works (@test-arg-match.R#3)  ------------------------
  `match_arg("abcdefg", c("Abcdef", "defg"))` threw an error with unexpected message.
  Expected match: "not a prefix of any"
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 9. Failure: match_arg() works (@test-arg-match.R#29)  -----------------------
  `match_arg("A", choices, ignore_case = FALSE)` threw an error with unexpected message.
  Expected match: "`arg` must be a prefix.+of exactly one element of `choices`.+. Your `arg` \\\"A\\\" is a prefix of two or more elements.+`choices`.+. The first two of these are \\\"Apples\\\" and \\\"Avocados\\\"."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 10. Failure: match_arg() works (@test-arg-match.R#38)  ----------------------
  `match_arg("a", choices, ignore_case = TRUE)` threw an error with unexpected message.
  Expected match: "`arg` must be a prefix of exactly one element of `choices`.+. Your `arg` \\\"a\\\" is a prefix of two or more elements of.+`choices`.+. The first two of these are \\\"Apples\\\" and \\\"Avocados\\\"."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 11. Failure: match_arg() works (@test-arg-match.R#47)  ----------------------
  `match_arg(c("A", "a"), choices)` threw an error with unexpected message.
  Expected match: "`arg` must have length 1.+. Your `arg` has length 2.+. To use an `arg` with length greater than one, use.+`several_ok = TRUE`."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 12. Failure: match_arg() works (@test-arg-match.R#57)  ----------------------
  `match_arg("p", choices, ignore_case = TRUE)` threw an error with unexpected message.
  Expected match: "`choices` must not have duplicate elements.+. Since you have set `ignore_case = TRUE`, elements 3 and.+7 of your `choices` \\(\\\"Bananas\\\" and \\\"bananas\\\"\\) are.+effectively duplicates."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 13. Failure: match_arg() works (@test-arg-match.R#67)  ----------------------
  `match_arg("p", choices, ignore_case = TRUE)` threw an error with unexpected message.
  Expected match: "`choices` must not have duplicate elements.+. Element 8, of your `choices` \\(\\\"Pears\\\"\\) is a duplicate."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 14. Failure: match_arg() works (@test-arg-match.R#75)  ----------------------
  `match_arg("a", as.character(1:51))` threw an error with unexpected message.
  Expected match: "`arg` must be a prefix of exactly one element of `choices`.+. Your first 50 `choices` are \\\"1\\\", \\\"2\\\", \\\"3\\\", .+47\\\", \\\"48\\\", \\\"49\\\" and \\\"50\\\".+. Your `arg` \\\"a\\\" is not a prefix of any of your `choices`."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 15. Failure: match_arg() works (@test-arg-match.R#108)  ---------------------
  `word()` threw an error with unexpected message.
  Expected match: "You have used `match_arg()` without specifying a `choices`\nargument.\n    * The only way to do this is from another function where\n      `arg` has a default setting. This is the same as\n      `base::match.arg()`.\n    * See the man page for `match_arg()`, particularly the\n      examples: enter `help(\"match_arg\", package = \"strex\")`\n      at the R console.\n    * See also the vignette on argument matching: enter\n      `vignette(\"argument-matching\", package = \"strex\")` at\n      the R console."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 16. Failure: match_arg() works (@test-arg-match.R#112)  ---------------------
  `word()` threw an error with unexpected message.
  Expected match: "You have used `match_arg()` without specifying a `choices`\nargument.\n    * The only way to do this is from another function where\n      `arg` has a default setting. This is the same as\n      `base::match.arg()`.\n    * See the man page for `match_arg()`, particularly the\n      examples: enter `help(\"match_arg\", package = \"strex\")`\n      at the R console.\n    * See also the vignette on argument matching: enter\n      `vignette(\"argument-matching\", package = \"strex\")` at\n      the R console."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 17. Failure: match_arg() works (@test-arg-match.R#117)  ---------------------
  `word()` threw an error with unexpected message.
  Expected match: "You have used `match_arg()` without specifying a `choices`\nargument.\n    * The only way to do this is from another function where\n      `arg` has a default setting. This is the same as\n      `base::match.arg()`.\n    * See the man page for `match_arg()`, particularly the\n      examples: enter `help(\"match_arg\", package = \"strex\")`\n      at the R console.\n    * See also the vignette on argument matching: enter\n      `vignette(\"argument-matching\", package = \"strex\")` at\n      the R console."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 18. Error: `str_extract_currencies()` works (@test-currency.R#3)  -----------
  DLL 'glue' not found: maybe not installed for this architecture?
  1: expect_equal(str_extract_currencies(string), tibble::tibble(string_num = 1, string = string, 
         curr_sym = c("", "$", "c", "$", " "), amount = c(35, 1.14, 5, 3.8, 77))) at testthat/test-currency.R:3
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: str_extract_currencies(string)
  5: str_locate_all(string, curr_pattern())
  6: opts(pattern)
  7: curr_pattern()
  8: num_regex(decimals = TRUE, sci = TRUE, negs = TRUE, commas = TRUE)
  9: glue::glue
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: library.dynam(lib, package, package.lib)
  15: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 19. Error: `str_nth_currency()` works (@test-currency.R#32)  ----------------
  DLL 'glue' not found: maybe not installed for this architecture?
  1: expect_equal(str_nth_currency(string, n = 2), tibble::tibble(string_num = seq_along(string), 
         string = string, curr_sym = c(" ", NA), amount = c(13, NA))) at testthat/test-currency.R:32
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: str_nth_currency(string, n = 2)
  5: str_locate_all(string, curr_pattern())
  6: opts(pattern)
  7: curr_pattern()
  8: num_regex(decimals = TRUE, sci = TRUE, negs = TRUE, commas = TRUE)
  9: glue::glue
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: library.dynam(lib, package, package.lib)
  15: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 20. Failure: str_elem() works (@test-elem.R#5)  -----------------------------
  `str_elem(c("a", "b"), 1:3)` threw an error with unexpected message.
  Expected match: "When `string` has length greater than 1, `index` must either\nbe length 1 or have the same length as `string`.\n    * Your `string` has length 2.\n    * Your `index` has length 3."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 21. Error: str_extract_non_numerics() works (@test-extract-non-numerics.R#2) 
  DLL 'glue' not found: maybe not installed for this architecture?
  1: expect_equal(str_extract_non_numerics("--123abc456", negs = TRUE), list(c("-", "abc"))) at testthat/test-extract-non-numerics.R:2
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: str_extract_non_numerics("--123abc456", negs = TRUE)
  5: num_regex(decimals = decimals, leading_decimals = leading_decimals, negs = negs, 
         sci = sci, commas = commas)
  6: glue::glue
  7: getExportedValue(pkg, name)
  8: asNamespace(ns)
  9: getNamespace(ns)
  10: loadNamespace(name)
  11: library.dynam(lib, package, package.lib)
  12: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 22. Error: str_extract_numbers works (@test-extract-nums.R#28)  -------------
  DLL 'glue' not found: maybe not installed for this architecture?
  1: expect_equal(str_extract_numbers("-123abc456", negs = TRUE), list(c(-123, 456))) at testthat/test-extract-nums.R:28
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: str_extract_numbers("-123abc456", negs = TRUE)
  5: num_regex(decimals = decimals, leading_decimals = leading_decimals, negs = negs, 
         sci = sci, commas = commas)
  6: glue::glue
  7: getExportedValue(pkg, name)
  8: asNamespace(ns)
  9: getNamespace(ns)
  10: loadNamespace(name)
  11: library.dynam(lib, package, package.lib)
  12: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 23. Failure: `str_locate_nth()` works (@test-locate.R#26)  ------------------
  `str_locate_first(c("a", "b"), c("c", "d", "e"))` threw an error with unexpected message.
  Expected match: "When `string` has length greater than 1, `pattern` must either\nbe length 1 or have the same length as `string`.\n    * Your `string` has length 2.\n    * Your `pattern` has length 3."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 24. Failure: `str_locate_nth()` works (@test-locate.R#32)  ------------------
  `str_locate_nth(c("a", "b"), c("a", "b"), 1:5)` threw an error with unexpected message.
  Expected match: "When `string` has length greater than 1, `n` must either be\nlength 1 or have the same length as `string`.\n    * Your `string` has length 2.\n    * Your `n` has length 5."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 25. Failure: `nth_number_after_mth()` works (@test-num-after.R#20)  ---------
  `str_nth_number_after_mth("abc", "123", 1:2, 1:3)` threw an error with unexpected message.
  Expected match: "If `n` and `m` both have length greater than 1, their lengths\nmust be equal.\n    * Your `n` has length 2.\n    * Your `m` has length 3."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 26. Error: str_split_by_numbers works (@test-split-by-nums.R#14)  -----------
  DLL 'glue' not found: maybe not installed for this architecture?
  1: expect_equal(suppressWarnings(str_split_by_numbers("abc25.25.25def", decimals = TRUE)), 
         list(NA_character_)) at testthat/test-split-by-nums.R:14
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressWarnings(str_split_by_numbers("abc25.25.25def", decimals = TRUE))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: str_split_by_numbers("abc25.25.25def", decimals = TRUE)
  7: ambig_warn(string, ambigs, ambig_pattern)
  8: custom_warn("NAs introduced by ambiguity.", "\n    The first such ambiguity is in string number\n    {first_offender[[1]]} which is '{first_offender[[2]]}'.\n    ", 
         "\n    The offending part of that string is\n    '{str_extract(first_offender[[2]], ambig_regex)}'.\n    ")
  9: rlang::warn(custom_condition_prep(main_message, ..., .envir = .envir))
  10: warning_cnd(.subclass, ..., message = message)
  ...
  17: freduce(value, `_function_list`)
  18: withVisible(function_list[[k]](value))
  19: function_list[[k]](value)
  20: glue::glue
  21: getExportedValue(pkg, name)
  22: asNamespace(ns)
  23: getNamespace(ns)
  24: loadNamespace(name)
  25: library.dynam(lib, package, package.lib)
  26: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 27. Failure: `*_list_nth_elems()` error correctly (@test-utils.R#24)  -------
  `str_list_nth_elems(list("a", "b"), 1:3)` threw an error with unexpected message.
  Expected match: "If both `char_list` and `n` .* lengths greater than 1.*then.+their lengths must be equal.*Your `char_list` has length 2 and your `n` has length 3."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 28. Failure: `*_list_nth_elems()` error correctly (@test-utils.R#32)  -------
  `num_list_nth_elems(list(1, 2), 1:3)` threw an error with unexpected message.
  Expected match: "If both `num_list` and `n` have lengths greater than 1.+then.+their lengths must be equal.+Your `num_list` has length 2 and your `n` has length 3."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  -- 29. Failure: `custom_stop()` errors correctly (@test-utils.R#43)  -----------
  `custom_stop("a", 1)` threw an error with unexpected message.
  Expected match: "The arguments in ... must all be of character type."
  Actual message: "DLL 'glue' not found: maybe not installed for this architecture?"
  
  == testthat results  ===========================================================
  OK: 136 SKIPPED: 2 WARNINGS: 0 FAILED: 29
  1. Failure: str_list_nth_elems works (@test-RcppExports.R#19) 
  2. Failure: num_list_nth_elems works (@test-RcppExports.R#38) 
  3. Failure: str_after_nth works (@test-after.R#22) 
  4. Failure: str_alphord_nums works (@test-alphord.R#19) 
  5. Failure: str_alphord_nums works (@test-alphord.R#29) 
  6. Failure: str_alphord_nums works (@test-alphord.R#33) 
  7. Failure: str_alphord_nums works (@test-alphord.R#44) 
  8. Failure: match_arg() works (@test-arg-match.R#3) 
  9. Failure: match_arg() works (@test-arg-match.R#29) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted