`top_terms(lda_model, n = 5)` produced no output

"This book was great. I loved the characters and plot.",
"Not a fan of this one. The story was too slow.",
"An interesting read with complex themes."
test_that("preprocess_reviews function works correctly", {
result <- preprocess_reviews(sample_reviews, english_only = FALSE)
test_that("fit_lda function works correctly", {
preprocessed <- preprocess_reviews(sample_reviews, english_only = FALSE)
lda_model <- fit_lda(preprocessed$dtm, k = 2)
test_that("top_terms function works correctly", {
expect_output(top_terms(lda_model, n = 5), "Topic 1:")
expect_output(top_terms(lda_model, n = 5), "Topic 2:")
test_that("model_topics function works correctly", {
result <- model_topics(sample_reviews, num_topics = 2, num_terms = 5, english_only = FALSE)

"This book was great. I loved the characters and plot."
"Not a fan of this one. The story was too slow."