Empty combineWidgets (fixes #6)

rte-antares-rpackage · Jan 12, 2017 · 3a15478 · 3a15478
1 parent c0e83f2
commit 3a15478
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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")