Add GUI start function, keep GUI here in mkin

1 files changed, 11 insertions, 0 deletions

diff --git a/R/gmkin.R b/R/gmkin.R
new file mode 100644
index 00000000..912d31c2
--- /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')")
+  }
+}