loosen unit test on punctuation symbols - test only on lowercased letters/numbers

Author: jwijffels

inst/tinytest/test_predict.R

@@ -26,7 +26,7 @@ if(Sys.getenv("TINYTEST_CI", unset = "yes") == "yes"){
   expect_true(is.data.frame(trans$data))
   expect_equal(nrow(trans$data), 1)
   expect_true(is.data.frame(trans$tokens))
-  expect_equal(length(onlyalpha(trimws(trans$tokens$token))), 23)
+  expect_equal(length(onlyalpha(trimws(trans$tokens$token))), 22)
   expect_equal(onlyalpha(trimws(trans$data$text)), onlyalpha("And so my fellow Americans ask not what your country can do for you ask what you can do for your country."))
   expect_equal(onlyalpha(trimws(trans$tokens$token)), onlyalpha(c("And", "so", "my", "fellow", "Americans", "ask", "not", "what", 
                                              "your", "country", "can", "do", "for", "you", "ask", "what",