From ba6c2c0f2ea34bffa33703212dc49d88a124be07 Mon Sep 17 00:00:00 2001
From: Jan Marvin Garbuszus <jan.garbuszus@ruhr-uni-bochum.de>
Date: Wed, 19 Jul 2023 21:10:23 +0200
Subject: [PATCH] fix warning message. closes #700

---
 R/class-workbook.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/class-workbook.R b/R/class-workbook.R
index 5f4edd688..9edbc1b95 100644
--- a/R/class-workbook.R
+++ b/R/class-workbook.R
@@ -3914,7 +3914,7 @@ wbWorkbook <- R6::R6Class(
 
       type <- match.arg(type)
 
-      if (length(cols) > 2)
+      if (length(cols) > 2 && any(diff(cols) != 1))
         warning("cols > 2, will create range from min to max.")
 
       ## rows and cols