Nothing
context("Lookup keyword")
LNToutput <- readRDS("../files/LNToutput.RDS")
test_that("Test similarity", {
expect_equal(lnt_similarity(LNToutput = LNToutput),
readRDS("../files/duplicates.df.RDS"))
expect_equal({
duplicates.df <- lnt_similarity(texts = LNToutput@articles$Article,
dates = LNToutput@meta$Date,
IDs = LNToutput@articles$ID)
attributes(duplicates.df)$call <-
attributes(readRDS("../files/duplicates.df.RDS"))$call
duplicates.df
},
readRDS("../files/duplicates.df.RDS"))
expect_equal(lnt_similarity(texts = LNToutput@articles$Article,
dates = LNToutput@meta$Date)$ID_original,
c(1, 2, 2, 2, 2, 3, 4, 4, 5))
})
test_that("Test similarity warnings and errors", {
expect_warning(lnt_similarity(texts = c(LNToutput@articles$Article[1:9], ""),
dates = LNToutput@meta$Date),
"At least one of the supplied texts had length 0. These articles with the following IDs will be ignored: 10")
expect_warning(lnt_similarity(texts = LNToutput@articles$Article,
dates = c(LNToutput@meta$Date[1:9], NA)),
"You supplied NA values to 'dates'. Those will be ignored.")
expect_error(lnt_similarity(),
"Supply either 'LNToutput' or 'texts' and 'dates'.")
expect_error(lnt_similarity(texts = LNToutput@articles$Article,
dates = LNToutput@meta$Date[1:8]),
"'texts', 'dates' and 'IDs' need to have the same length.")
})
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.