From 9ddd8dd2d03531ded7022a6e1ce2dbb5a29cd77e Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 29 Oct 2015 01:39:20 +0100
Subject: First functional version of the model gallery

---
 R/gmkin.R | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'R')

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"))
 }
-- 
cgit v1.2.1