From 66620036c4943c03072b113a63fcd983390102b8 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 18 Nov 2013 20:13:58 +0100
Subject: Add GUI start function, keep GUI here in mkin

---
 R/gmkin.R | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 R/gmkin.R

(limited to 'R')

diff --git a/R/gmkin.R b/R/gmkin.R
new file mode 100644
index 0000000..912d31c
--- /dev/null
+++ b/R/gmkin.R
@@ -0,0 +1,11 @@
+gmkin <- function() {
+  if (require(gWidgetsWWW2)) load_app(system.file("GUI/gmkin.R", package = "mkin"))
+  else {
+    message(
+       "\nYou need to install gWidgetsWWW2 in order to run the mkin GUI gmkin.\n",
+       "This  package is not currently on CRAN but can be installed from github\n",
+       "using the devtools package:\n",
+       "library(devtools)\n",
+       "install_github('gWidgetsWWW2', 'jverzani')")
+  }
+}
-- 
cgit v1.2.1