Nothing
data("phone_offers")
phone_offers <- phone_offers[1:10,]
context("politeness function")
num_messages <- length(phone_offers$message)
#
df_polite_bin_drop <- politeness(text = phone_offers$message, parser = "none", metric = "binary", drop_blank = TRUE, num_mc_cores=1)
# count, drop_blank true
df_polite_count_drop <- politeness(text = phone_offers$message, parser = "none", metric = "count", drop_blank = TRUE, num_mc_cores=1)
# average, drop_blank true
df_polite_average_drop <- politeness(text = phone_offers$message, parser = "none", metric = "average", drop_blank = TRUE, num_mc_cores=1)
# count, drop_blank false
df_polite_count_drop_f <- politeness(text = phone_offers$message, parser = "none", metric = "count", drop_blank = FALSE, num_mc_cores=1)
# binary, drop_blank false
df_polite_bin_drop_f <- politeness(text = phone_offers$message, parser = "none", metric = "binary", drop_blank = FALSE, num_mc_cores=1)
# average, drop_blank false
df_polite_average_drop_f <- politeness(text = phone_offers$message, parser = "none", metric = "average", drop_blank = TRUE, num_mc_cores=1)
test_that("runs with parser none", {
expect_equal(nrow(df_polite_bin_drop), num_messages)
expect_true(setequal(unique(unlist(df_polite_bin_drop)),0:1))
expect_equal(nrow(df_polite_bin_drop), num_messages)
expect_true(setequal(unique(unlist(df_polite_bin_drop_f)),0:1))
expect_equal(nrow(df_polite_count_drop_f), num_messages)
expect_false(setequal(unique(unlist(df_polite_count_drop_f)),0:1))
expect_equal(nrow(df_polite_count_drop), num_messages)
expect_false(setequal(unique(unlist(df_polite_count_drop)),0:1))
expect_equal(nrow(df_polite_average_drop_f), num_messages)
unique_values = unique(unlist(df_polite_average_drop_f))
expect_true( all(unique_values >=0) )
expect_true( all(unique_values <=100) )
expect_true( any(unique_values <100) )
expect_equal(nrow(df_polite_average_drop), num_messages)
unique_values = unique(unlist(df_polite_average_drop))
expect_true( all(unique_values >=0) )
expect_true( all(unique_values <=100) )
expect_true( any(unique_values <100) )
})
test_that("empty or na string", {
phone_offers$message[1] <- ""
df_polite <- politeness(text = c("","a"), parser = "none", metric = "binary", drop_blank = FALSE, num_mc_cores=1)
expect_true( all(apply(df_polite, MARGIN = 1, FUN = sum)==c(0,0)))
df_polite <- politeness(text = c(NA_character_,"a"), parser = "none", metric = "binary", drop_blank = FALSE, num_mc_cores=1)
expect_true( all(apply(df_polite, MARGIN = 1, FUN = sum)==c(0,0)))
phone_offers$message[1] <- NA_character_
df_polite <- politeness(text = phone_offers$message, parser = "none", metric = "binary", drop_blank = FALSE, num_mc_cores=1)
expect_true( all(apply(df_polite, MARGIN = 1, FUN = sum)[1]==0))
})
test_that("factor", {
phone_offers$message[1] <- ""
phone_offers$message <- factor(phone_offers$message)
df_polite <- politeness(text = phone_offers$message, parser = "none", metric = "binary", drop_blank = FALSE, num_mc_cores=1)
expect_true(any(apply(df_polite, MARGIN = 1, FUN = sum) > 0))
})
test_that("text of length 0", {
df_polite <- politeness(text = phone_offers$message[2], parser = "none", metric = "binary", drop_blank = FALSE, num_mc_cores=1)
expect_true(apply(df_polite, MARGIN = 1, FUN = sum) > 0)
})
test_that("text single feature", {
df_polite <- politeness(text = "hello",num_mc_cores=1)
expect_true(is.data.frame(df_polite))
})
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.