test_that("html tags work", {
transcript_test <- data.frame(text="This is a
test.")
collocation_test <- data.frame(word_number=1:4, col_1=c(2,4,6, NA), col_2=c(NA, 2, 4, 6),
to_merge = c("this", "is", "a", "test"),
collocation= c("this is", "is a", "a test", NA))
frequency_test <- transcript_frequency(transcript_test, collocation_test)
freq_plot <- collocation_plot(frequency_test)
test_highlight <- highlighted_text(freq_plot)
answer <- " This
is
a
test.
"
expect_identical(test_highlight, answer)
})
test_that("dash check", {
transcript_test <- data.frame(text="This - is a - test.")
collocation_test <- data.frame(word_number=1:4, col_1=c(2,4,6, NA), col_2=c(NA, 2, 4, 6),
to_merge = c("this", "is", "a", "test"),
collocation= c("this is", "is a", "a test", NA))
frequency_test <- transcript_frequency(transcript_test, collocation_test)
freq_plot <- collocation_plot(frequency_test)
test_highlight <- highlighted_text(freq_plot)
answer <- " This
-
is
a
-
test.
"
expect_identical(test_highlight, answer)
})