explicit load shinydashboard

main.R

@@ -259,8 +259,8 @@ generate_pages_server <- function() {
     resG <- resG + "\t# \tPage : " + name + "\n"
     path_page = output_dir+"/pages/pages_def_"+tolower(name)+".R"
     file.replace(path_page)
-    
-    res <- 'tab'+ name + ' = fluidPage(\n\n'
+    res <- 'library(shinydashboard)\n\n'
+    res <- res + 'tab'+ name + ' = fluidPage(\n\n'
     
     res <- res + 'box(title = "Parameters :", width = 12, status = "primary", collapsible = TRUE, solidHeader = TRUE'