First functional version of the model gallery

1 files changed, 16 insertions, 2 deletions

diff --git a/R/gmkin.R b/R/gmkin.R
index 31e8cf4..424054e 100644
--- a/R/gmkin.R
+++ b/R/gmkin.R
@@ -1,3 +1,17 @@
-gmkin <- function() {
-  load_app(system.file("GUI/gmkin.R", package = "gmkin"))
+# This makes use of the ::: operator
+# To avoid this, gWidgetsWWW2 needs to be adapted
+gmkin <- function(script_name, show.log = FALSE) {
+  if (missing(script_name)) {
+    script_name = system.file("GUI/gmkin.R", package = "gmkin")
+  }
+  session_manager = gWidgetsWWW2:::make_session_manager()
+  r_httpd <- gWidgetsWWW2:::R_http$get_instance()
+  r_httpd$start()
+  r_httpd$load_gw(session_manager)
+  r_httpd$load_app(script_name, "gmkin", session_manager,
+                   open_page = TRUE, show.log = show.log)
+  gmkin_png <- Rook::Static$new(
+    urls = c("/"),
+    root = system.file("GUI/png", package="gmkin"))
+  r_httpd$R$add(Rook::RhttpdApp$new(gmkin_png, name="gmkin_png"))
 }