Fix for #312

R/utilities.R

@@ -472,17 +472,13 @@ split_strings <- function(strng, width, units, multiplier = 1.03) {
 
       wrds <- strsplit(split, " ", fixed = TRUE)[[1]]
 
-      lngths <- c()
-      # trycatch({
-        lngths <- (suppressWarnings(strwidth(wrds, units = un)) + 
-                     suppressWarnings(strwidth(" ", units = un))) * multiplier
-
-      # }, err = {
-      #   
-      #   lngths <- (suppressWarnings(strwidth(wrds, units = un)) + 
-      #                suppressWarnings(strwidth(" ", units = un))) * multiplier
-      #   
-      # })
+      # Old code
+      # lngths <- (suppressWarnings(strwidth(wrds, units = un)) + 
+      #              suppressWarnings(strwidth(" ", units = un))) * multiplier
+
+      if (length(wrds) > 0) {
+        lngths <- (strwdth(wrds, un) + strwdth(" ", un)) * multiplier
+      } 
 
       # Loop through words and add up lines
       for (i in seq_along(wrds)) {
@@ -550,6 +546,36 @@ split_strings <- function(strng, width, units, multiplier = 1.03) {
   return(ret)
 }
 
+
+
+strwdth <- Vectorize(function(wrd, un) {
+
+
+    tryCatch({
+
+      if (is.na(wrd)) 
+        nwrd <- " "
+      else 
+        nwrd <- wrd
+
+      ret <- suppressWarnings(strwidth(nwrd, units = un))
+
+    }, error = function(cond) {
+
+      if (is.na(wrd)) {
+        nwrd <- " "
+      } else {
+
+        nwrd <- rep("a", nchar(wrd)) 
+      }
+
+      ret <- suppressWarnings(strwidth(nwrd, units = un)) 
+
+    })
+
+  return(ret)
+}, USE.NAMES = FALSE, SIMPLIFY = TRUE)
+
 #' @description Calling function is responsible for opening the 
 #' device context and assigning the font.  This function will use 
 #' strwidth to determine number of wraps of a string within a particular

tests/testthat/test-docx.R

@@ -24,7 +24,7 @@ dev <- FALSE
 # Basic Tests 1 - 10 ------------------------------------------------------
 
 
-test_that("docx0: Basic text works as expected.", {
+test_that("docx0: Basic docx works as expected.", {
 
 
   fp <- file.path(base_path, "docx/test0.docx")

tests/testthat/test-utilities.R

@@ -656,3 +656,53 @@ test_that("utils30: has_glue() works as expected.", {
   expect_equal(res3, TRUE)
 
 })
+
+test_that("utils31: strwdth() works as expected.", {
+
+  strngs <- c("hello", "goodbye", paste0("here is something", supsc('6')))
+
+
+
+  pdf(NULL)
+  par(family = 'mono', ps = 10)
+
+  res <- strwidth(strngs, un = "inches")
+
+  dev.off()
+
+  res
+
+
+
+  pdf(NULL)
+  par(family = 'mono', ps = 10)
+
+  res1 <- strwdth(strngs, un = "inches")
+
+  dev.off()
+
+  res1
+
+  expect_equal(all(res == res1), TRUE) 
+
+
+  pdf(NULL)
+  par(family = 'sans', ps = 10)
+
+  res2 <- strwdth(strngs, un = "inches")
+
+  dev.off()
+
+  res2
+
+  # print(res1)
+  # print(res2)
+
+  expect_equal(all(res1 != res2) , TRUE) 
+
+
+
+})
+
+
+