Merge pull request #119 from Merck/bug-118

bug fix: #118
Merck · Aug 26, 2022 · 98cbcf5 · 98cbcf5
2 parents 5d49141 + 0fb452a
commit 98cbcf5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/rtf_nrow.R b/R/rtf_nrow.R
@@ -47,7 +47,7 @@ rtf_nline_vector <- function(text, strwidth, size) {
   index <- strwidth / size > 1
   n_row <- rep(1, length(text))
 
-  if (any(index)) {
+  if (any(na.omit(index))) {
     l <- length(text)
 
     if (length(strwidth) < l) {

diff --git a/tests/testthat/test-independent-testing-rtf_nrow.R b/tests/testthat/test-independent-testing-rtf_nrow.R
@@ -75,7 +75,7 @@ cellsize <- matrix(width, nrow = nrow(tbl), ncol = ncol(tbl), byrow = TRUE) - pa
 
 # rtf_nline_vector example
 nline_vector <- rtf_nline_vector(
-  text = c("title 1", "this is a sentence for title 2"),
+  text = c("title 1", "this is a sentence for title 2", NA),
   strwidth = c(
     strwidth("title 1", units = "inches"),
     strwidth("this is a sentence for title 2", units = "inches")
@@ -116,7 +116,6 @@ test_that("test if rtf_nline_vector() return to correct numbers", {
   expect_equal(nline_vector[2], 6)
 })
 
-
 test_that("test if rtf_nline_matrix() return to correct numbers", {
 
   # maximum lines for first row