fix: Check and stop if fp_text_lite() is using a *shading.color* bu…

…t no *color*

fix #538

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: officer
 Type: Package
 Title: Manipulation of Microsoft Word and PowerPoint Documents
-Version: 0.6.4.003
+Version: 0.6.4.004
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"), email = "[email protected]"),
     person("Stefan", "Moog", role = "aut", email = '[email protected]'),

NEWS.md

@@ -17,6 +17,7 @@ The docs gain a description of the columns of the returned dataframe.
 
 - Fix. Refactor `docx_comments()` to (properly) account for comments spanning 
 multiple paragraphs, multiple comments in the same paragraph and replies. Closes #541.
+- Check and stop if `fp_text_lite()` is using a *shading.color* but no *color*.
 
 # officer 0.6.3
 

R/ooxml.R

@@ -464,6 +464,9 @@ rpr_wml <- function(x){
   }
 
   if(!is.na(x$shading.color)){
+    if (is.na(x$color)) {
+      stop("shading.color must be used **with** a color.")
+    }
     if(!is_transparent(x$shading.color) ){
       out <- paste0(
         out,