From 3a154781012abc0e957de62695a4f9577632aec8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?fran=C3=A7ois=20GUILLEM?= <francois.guillem@rte-france.com>
Date: Thu, 12 Jan 2017 09:53:39 +0100
Subject: [PATCH] Empty combineWidgets (fixes #6)

---
 R/combineWidgets.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/combineWidgets.R b/R/combineWidgets.R
index 2cf80bf..1356be2 100644
--- a/R/combineWidgets.R
+++ b/R/combineWidgets.R
@@ -124,6 +124,8 @@ combineWidgets <- function(..., list = NULL, nrow = NULL, ncol = NULL, title = N
   })
   nwidgets <- length(widgets)
 
+  if (nwidgets == 0) return(combineWidgets(""))
+
   # Get number of rows and cols
   if (!is.null(nrow) && !is.null(ncol) && nrow * ncol < nwidgets) {
     stop("There are too much widgets compared to the number of rows and columns")