Another attempt to pass checks

R/page_template_docx.R

@@ -1360,8 +1360,15 @@ get_page_by_docx <- function(pgby, width, value, rs, talgn,
 
     }
 
+
+    pdf(NULL)
+    par(family = get_font_family(rs$font), ps = rs$font_size)
+
     # Account for multiple pgby lines
     tmp <- split_string_html(value, width, rs$units)
+
+    dev.off()
+
     vl <- tmp$html
     cnt <- cnt + tmp$lines
     vrht <- get_row_height(round(rs$row_height * conv) * tmp$lines)

R/page_template_html.R

@@ -1143,8 +1143,15 @@ get_page_by_html <- function(pgby, width, value, rs, talgn, ex_brdr = FALSE, pgb
                                 exclude = exclude_top, 
                                 border_color = get_style(rs, "border_color"))
 
+
+    pdf(NULL)
+    par(family = get_font_family(rs$font), ps = rs$font_size)
+
     # Account for multiple pgby lines
     tmp <- split_string_html(value, width, rs$units)
+
+    dev.off()
+
     vl <- tmp$html
     cnt <- cnt + tmp$lines
 

R/page_template_rtf.R

@@ -1112,11 +1112,16 @@ get_page_by_rtf <- function(pgby, width, value, rs, talgn, pgby_cnt = NULL) {
 
     tb <- get_cell_borders(brow, 1 , trows, 1, pgby$borders)
 
+    pdf(NULL)
+    par(family = get_font_family(rs$font), ps = rs$font_size)
+
     # Account for multiple pgby lines
     tmp <- split_string_rtf(value, width, rs$units)
     vl <- tmp$rtf
     cnt <- cnt + tmp$lines
 
+    dev.off()
+
     # Construct RTF for pageby value
     ret[length(ret) + 1] <- paste0("\\trowd\\trgaph0", ta, tb, 
                                    "\\cellx", w1, algn, " ",

R/utilities.R

@@ -472,8 +472,17 @@ split_strings <- function(strng, width, units, multiplier = 1.03) {
 
       wrds <- strsplit(split, " ", fixed = TRUE)[[1]]
 
-      lngths <- (suppressWarnings(strwidth(wrds, units = un)) + 
-                   suppressWarnings(strwidth(" ", units = un))) * multiplier
+      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
+      #   
+      # })
 
       # Loop through words and add up lines
       for (i in seq_along(wrds)) {