update bs4 app structure

.gitignore

@@ -6,3 +6,4 @@ README.html
 **/.DS_Store
 **/*.dcf
 docs
+inst/virtual_patient_simulator/**/compiled_core.*o

inst/virtual_patient_simulator/bs4/global.R → inst/virtual_patient_simulator/bs4/app.R

@@ -33,6 +33,8 @@ source("navbar.R")
 source("sidebar.R")
 source("body.R")
 source("footer.R")
+source("dashboardControlbar.R")
+source("ui.R")
 
 #-------------------------------------------------------------------------
 #
@@ -43,13 +45,13 @@ source("footer.R")
 #-------------------------------------------------------------------------
 
 # Load usefull scripts
-source("dashboardControlbar.R")
 source("cap_fixed_parameters.R")
 source("calcium_phosphate_core.R") # core model
 source("calc_change.R")
 source("networks.R")
 source("model_utils.R")
 source("generate_slider_events.R")
+source("server.R")
 
 # set the current time zone to Zurich (for shiny server)
 Sys.setenv(TZ = "Europe/Zurich")
@@ -59,7 +61,6 @@ so_name <- paste("compiled_core", .Platform$dynlib.ext, sep = "")
 system("R CMD SHLIB compiled_core.c")
 dyn.load(so_name)
 
-
 #-------------------------------------------------------------------------
 #
 #
@@ -69,17 +70,22 @@ dyn.load(so_name)
 #-------------------------------------------------------------------------
 users_logs <- "www/users_data"
 if (!dir.exists(users_logs)) {
-  dir.create(users_logs)
+  dir.create(users_logs, recursive = TRUE)
 }
 
 onStop(function() {
   if (.Platform$OS.type == "unix") {
     file.remove(so_name)
     file.remove(gsub("so", "o", so_name))
   } else if (.Platform$OS.type == "windows") {
-   file.remove(so_name)
+    file.remove(so_name)
   }
 })
 
 # Bookmarking
 #enableBookmarking(store = "server") # save to the disk
+
+shinyApp(
+  ui = ui,
+  server = server
+)