Merge branch 'master' of https://gitlab.gwdg.de/loosolab/software/i2dash

R/pages.R

@@ -34,8 +34,8 @@ setMethod("add_page", "i2dashboard", function(object, page, title, layout = "def
   if(name %in% names(object@pages)) {
     warning(paste("The page", name, "already exists and will be overwritten."))
     if(base::interactive()) {
-      override_page <- menu(c("Yes, overwrite page", "Cancel"), title = "Do you want to overwrite this page?")
-      skip <- switch(override_page,
+      overwrite_page <- menu(c("Yes, overwrite page", "Cancel"), title = "Do you want to overwrite this page?")
+      skip <- switch(overwrite_page,
                      "1" = FALSE,
                      "2" = TRUE)
       if (skip) stop("Aborted.")

inst/templates/layout_default.Rmd

@@ -4,7 +4,7 @@
 <!-- Page created on <% date %> -->
 <% if(!is.null(sidebar)) sidebar %>
 
-Column
+Column {.tabset}
 ----------------------------------------------------
 
 <% components %>
\ No newline at end of file