Nothing
context("Language detection")
test_that("top language is detected correctly", {
expect_equal(franc("Alle menslike wesens word vry"), "afr")
expect_equal(franc(""), "und")
expect_equal(franc("the"), "und")
expect_equal(franc("the", min_length = 3), "sco")
})
test_that("no matching script", {
expect_equal(franc(strrep("\U0001f4e6", 30)), "und")
})
test_that("language scores are calculated correctly", {
scores <- franc_all('O Brasil caiu 26 posi\u00c7\u00f5es')
expect_equal(
scores[1:12,],
data.frame(
stringsAsFactors = FALSE,
language = c("por", "src", "glg", "snn", "bos", "hrv", "lav", "cat",
"spa", "bam", "sco", "rmy"),
score = c(1, 0.880093676814988, 0.870257611241218, 0.863700234192037,
0.816861826697892, 0.810304449648712, 0.809836065573771,
0.80655737704918, 0.799531615925059, 0.799531615925059,
0.779859484777518, 0.753629976580796)
)
)
})
test_that("whitelist", {
txt <- paste(
"Somogy és Baranya megyét egy földút is összeköti, ahová a",
"navigációs szoftverek néha bekalauzolják a gyanútlan autóst,",
"aztán a helyiek húzzák ki őket a sárból. -- telex.hu"
)
expect_equal(franc(txt, whitelist = c("hun", "eng", "esp")), "hun")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.