From f84856725b59cbdd0ffbda6ca2e7b3cb0f604bf2 Mon Sep 17 00:00:00 2001
From: Dan Chaltiel <dan.chaltiel@gmail.com>
Date: Sun, 14 Nov 2021 10:08:28 +0100
Subject: [PATCH] Add a check on value in body_add_flextable()

to improve error messages
---
 R/body_add_flextable.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/body_add_flextable.R b/R/body_add_flextable.R
index 72e9c71d..70458204 100644
--- a/R/body_add_flextable.R
+++ b/R/body_add_flextable.R
@@ -29,6 +29,7 @@ body_add_flextable <- function( x, value, align = "center", pos = "after", split
                                 topcaption = TRUE) {
 
   stopifnot(inherits(x, "rdocx"))
+  stopifnot(inherits(value, "flextable"))
 
   if(topcaption && !is.null(value$caption$value)){
     bc <- block_caption(label = value$caption$value,